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11 SUPER-SPIELE 



Schon gehört?! - - + + - Schon gehört?! - - + + - Schon gehört?! - - + + - 

Der TRONIC-VERLAG sucht in den Computerzeitschriften „COMPUTRONIC" und „HOMECOMPUTER" den 

Software-Champion 1 985 ! ! ! 



Es warten tolle Preise auf Sie! 

1. PREIS: 



5000 DM in bar ! 

2. PREIS: 

Ein Farbmonitor 

im Wert von 800,- DM ! 

3. PREIS: 

Computer-Zubehör (wahlweise 
im Gesamtwert von 300,- DM) 



Nutzen Sie Ihre Chance, beteiligen Sie 
sich mit einem Software-Programm an 
unserem Wettbewerb! 

Jedes eingesandte Programm nimmt an 
der Auswahl teil!!! 

Letzter Annahmetermin ist der 30. Sep- 
tember 1985. Der Rechtsweg ist ausge- 
schlossen. 

Zur Auswahl: 

Wir stellen in jeder Ausgabe von COM- 
PUTRONIC mindestens drei TOP- 
PROGRAMME, in „HOMECOMPU- 
TER' U 1 Topprogramm vor. Hierfür 
trifft die Redaktion die Entscheidung 
(unabhängig vom Computertyp). 
Wird ein Programm zur Darstellung im 
Heft herangezogen, zahlt der Verlag ein 
Honorar von DM 1 20- pro abgedruck- 
te volle Seite. Zum Jahresende stellt die 
Redaktion noch einmal alle als TOP- 
PROGRAMME ausgezeichneten Pro- 
gramme vor. Unsere Leser und die Re- 
daktion werden dann in der Ausgabe 
Nov./Dez. '85 das absolute TOPPRO- 
GRAMM des JAHRES wählen. 
Der Autor des Programmes wird in un- 
serer Ausgabe vorgestellt und mit DM 
5000,- prämiiert werden. 



Einzusenden sind: 
Spielbeschreibung 
Datenträger 
Listing (nicht unbedingt erforderlich) 

Einsenden an: TRONIC- VERLAG - 
Postfach - 3444 Wehretal 1 
KENNWORT: SUPER-SOFTWARE- 
CHAMPION 



Wir wünschen allen Freizeitautoren 
viel Spaß beim Mitmachen. 
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Bericht 

In eigener Sache 



Muß das sein? 

Heimcomputer, was kann man damit 
machen? Kochrezepte sammeln, Brief- 
marken registrieren, Terminkalender 
führen, Heizung steuern? Viele Hob- 
by-Autoren haben sich den Trend zu 
Nutze gemacht, sich nicht nur mit den 
elektronischen Zwergen anzufreun- 
den, sondern selbst zu programmie- 
ren. Was dabei heraus kommt, kann 
sich sehen lassen. Autorennen auf 
grafisch hervorragend präparierten 
Rennstrecken, Raumgleiter auf Ex- 



kursionen durch das AU, Geschick- 
lichkeitsspiele, Denkspiele, alles, was 
es zu programmieren gibt. 

Für viele Autoren ist die Zusammen- 
arbeit mit unserem Verlag zur Selbst- 
verständlichkeit geworden. - Selbst- 
verständlich ist es aber nicht, daß wir 
Programmeinsendungen berücksichti- 
gen, die man ohne weiteres als „ge- 
klaut" bezeichnen kann. Hier werden 
dem Verlag gegen Honorar Program- 
me angeboten, die aus anderen Publi- 
kationen einfach abgeschrieben bzw. 
abgetippt wurden. Ausgeschlossen ist, 



daß derartige Betrügereien unentdeck: 
bleiben. In solchen Fällen reagierer. 
unsere Leser sofort und geben uns ent- 
sprechende Hinweise, die wir mit aller 
Sorgfalt verfolgen. Vorfälle dieser Art 
haben uns zu ersten ernsthaften Maß- 
nahmen gezwungen. So werden künf- 
tig alle Autorengehälter erst 14 Tage 
nach Erscheinen der entsprechender. 
Ausgabe gezahlt. D. h. im Klartext: für 
geklaute Programme gibt es kein Geld. 
Schade ist, daß ein schönes Hobby von 
einigen Wenigen ins Zwielicht ge- 
bracht und mit solchen Praktiken wir 
und unsere Leser getäuscht werden. 
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Software: 



Daß ohne die entsprechende Software nichts geht, 
ist hinlänglich bekannt. Täglich kommen neue Pro- 
gramme auf den Markt, von denen es einige wenige 
wert sind, sich näher mit ihnen zu beschäftigen. 
Eingehen auf Anwender- bzw. Bedienungsfreund- 
lichkeit oder Grafik wollen wir nicht, da wir die 

hier vorgestellten Pro- 
gramme leider nicht te- 
sten konnten. 






Oldie-Ecke 



Immer noch ganz oben auf der Hitliste 
der beliebtesten Software, ist das Pro- 
gramm „Decathlon". 
Mit „Decathlon" haben Sie die Chan- 
ce, Olympiasieger zu werden. Ein 
sportlicher Wettkampf mit zehn ver- 
schiedenen Disziplinen. 




Commodore 64 
MSX, IBM, 
Apple 



BEAMRIDER - REITER DER STRAHLEN 




Für Commodore 64, 
Sinclair, MSX, Apple 



Sie sind der Reiter der Strahlen, der 
berühmte BEAMRIDER, und müssen 
den Sperrschild, der die Erde umgibt, 
beseitigen. Doch Vorsicht, denn die 
einzelnen Sektoren werden von geg- 
nerischen Wachschiffen beschützt. 
In allen Spielphasen befinden Sie sich 
mit Ihrem BEAMRIDER am unteren 
Rand eines Strahlennetzes, auf denen 
Gegner unterschiedlicher Art entlang- 
fahren. Ufoähnliche weiße Gebilde 
gleiten zunächst langsam, dann immer 
schneller werdend dem Bildschirm- 
rand entgegen, weichen plötzlich seit- 



lich aus und gleiten an Ihrem mit e: 
nem „Laserlasso" ausgerüsteten Lichfl 
schiff vorbei, falls es nicht schon vor 
her zu einer verhängnisvollen Kol" 
sion kommt ... 

Ihre. Aufgabe ist es, die 15 gegm= 
sehen Schiffe pro Sektor zu zerstö: 
und anschließend das schutzlc 
Wachschiff mittels Torpedo zu eli 
nieren. 

Ein phantastisches, schnelles W 
raumspiel, an dem bis zu vier Spi* 
ihr Reaktionsvermögen unter Bev 
stellen können. 



Compi: - :" 




H.E.R.O. - HELIKOPTER-HELD 



Ein gewaltiger Vulkan ist im Inneren des Mount Leone ausgebrochen. Durch die 
gewaltigen Explosionen überrascht, werden viele Bergleute in den labyrinth- 
ähnlichen Minen eingeschlossen und warten auf Hilfe. Treten Sie dem „Corps 
Of Helicopter Emergency Operations" (Operations-Corps der Rettungshub- 
schrauber für den Ernstfall) bei und versuchen Sie, Ihre Kameraden aus dem 
Innern des Berges zu befreien. Eine waghalsige Expedition im Kampf gegen eine 
Naturkatastrophe, erschwert durch giftige Schlangen, Spinnen, Minenmotten 
und glühende Felsvorsprünge, erwartet Sie. H.E.R.O. ist '„Dynamit" - ein pak- 
kendes Abenteuer, bei dem der kleinste Fehler zum Verhängnis werden kann! 




Commodore 64, MSX, 
IBM, Sinclair 



KABOOM! - SCHNELLER ALS DER KNALL 

Ein Spiel, bei dem Sie Ihr Reaktionsvermögen in Höchstform bringen können. 
Ein entlaufener Sträfling hat sich auf dem Dach eines Hochhauses verschanzt 
und wirft mit immer größer werdender Geschwindigkeit seine hochexplosiven 
Bomben in die Tiefe. 

Zur Abwehr dieser Gefahr stehen Ihnen drei gefüllte Wassereimer zur Verfü- 
gung, die Sie so plazieren müssen, daß die herabfallenden Bomben darin verlö- 
schen. Wehe Ihnen, wenn Sie nicht schnell" genug sind. Jedesmal, wenn eine 
Bombe danebenfällt, explodieren sämtliche noch auf dem Bildschirm verbliebe- 
nen Bomben und Sie verlieren Ihren untersten Wassereimer, was die Zeitspanne 
zwischen Abwurf und Abfangen der Bomben verkürzt. Doch auch, wenn Sie 
geschickt sind und alle Bomben auffangen können, wird es Ihnen nicht leichter 
gemacht. Immer schneller regnet der Bombenteppich auf sie herab und Sie 
müssen kämpfen wie ein Löwe, damit Ihnen nichts „danebengeht". 




Für Atari-Home-Computer 



Computer und Baukästen 



eee 



... sind eine Ehe eingegangen. Die Ver- 
bindung ist zustande gekommen durch 
die permanente Suche der Home- 
Computer-Fans nach neuen Program- 
mierungsmöglichkeiten. Bisher lag die 
Hauptbetätigung im Austüfteln neuer 
Programme für alle nur denkbaren 
Fälle aus dem Haushalts- und Hobby- 
bereich. Das reichte von der Überwa- 
chung des Weinkellers bis hin zur 
Verwaltung der Briefmarkensamm- 
lung. Diese allerdings recht theoreti- 
schen Ansätze können nicht auf Dauer 
befriedigen. Eine vielseitige prakti- 
sche Anwendung fehlte bisher. In die- 
ses Vakuum stößt nun das Konstruk- 
tionssystem fischertechnik mit einem 
speziellen Baukasten: Der Computing- 
Bauset gestattet erstmals die komplet- 
te Steuerung kleiner Maschinen und 



Roboter durch Home-Computer. Rund 
zehn funktionstüchtige Modelle kön- 
nen nach und nach aus dem Baukasten 
entstehen. Darunter sind Automaten, 
Roboter und Grafikgeräte. Weitere 
Spezialkästen für einen aufwendigen 
Trainingsroboter und für einen viel- 
seitigen Plotter sind in Vorbereitung. 
Alle Modelle sind als Bauanleitung 
detailliert dargestellt und mit knappen 
Verdrahtungsplänen versehen. Zur 
Ansteuerung benötigt jeder Computer 
sein spezielles Interface, das für Com- 
modore, Apple II, Acorn, Kosmos und 
den NDR-Klein-Computer lieferbar 
ist. Dieser neue Einsatzbereich erwei- 
tert die Anwendungspalette von 
Home-Computern ganz erheblich und 
gibt diesem breiten Trend einen neuen 
und lehrreichen Sinn. 



Apple-Leasing 
für Studenten 



Jeder Student ab dem Vordiplom oder 
ab der Zwischenprüfung an deutschen 
Hochschulen und Fachhochschulen 
soll sich seinen eigenen Macintosh lei- 
sten können. Aus diesem Grund star- 
tet die Apple Computer GmbH, Mün- 
chen, zum 1. Juli 1985 das Sonderpro- 
gramm „StudMac". Wie die deutsche 
.Tochtergesellschaft des kaliforni- 
schen Mikrocomputer-Pioniers anläß- 
lich der Hannover-Messe 1985 be- 
kannt gibt, können Studierende über 
autorisierte Apple-Händler und App- 
leRent ein Macintosh-System für rund 
275,- Mark im Monat leasen. 
Das Macintosh-System für Studenten 
umfaßt eine umfangreiche Ausstat- 
tung. Es besteht aus dem Macintosh 
128 KB, einem hochauflösenden Ra- 
sterbildschirm, einem Mikro-Disket- 
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Report 

ten-Laufwerk, einer deutschen Tasta- 
tur, der bekannten Maus, dem Schön- 
schreib-Matrix-Drucker „Imagewri- 
ter", der Software MacWrite und 
MacPaint, einem Einführungskurs auf 
Diskette und Tonbandkassette sowie 
sämtlichem Zubehör, Handbüchern, 
Kabel und der Tragetasche. 



Für diese Ausstattung müssen zwei 
Monatsraten angezahlt werden. Die 
Mietdauer geht über 32 Monate. Ge- 



gen Zahlung einer weiteren Monats- 
miete gehört der Mac dem Studenten. 
Der empfohlene Verkaufspreis für die- 
ses umfangreiche System beträgt regu- 
lär rund 1 1 000- Mark, Die monatli- 
chen Leasingraten lassen sich übri- 
gens unter bestimmten Voraussetzun- 
gen von der Steuer absetzen. 

Kontakt: Renate Knüfer, Apple Computer 
GmbH, Ingolstädter Straße 20, 8000 
München 45 



Im Herbst 1984 startete Philips den Vertrieb des MSX- 
Heim- Computers VG 8010. Dabei wird der neue MSX- 
Standard als Betriebssystem verwendet, der zum erstenmal 
vollständige Austauschbarkeit von Hardware und Software 
gewährleistet, unabhängig vom Fabrikat. Der MSX-Stan- 
dard wurde entwickelt von Microsoft Inc., USA. 

Philips MSX-Heim-Computer 



Diese Standardisierung von Hardware 
und Software stellt sich als entschei- 
dender Vorteil im Heim-Computer- 
Bereich heraus, denn bisher gibt es 
doch nur eine große Anzahl individu- 
eller und nicht kompatibler Systeme. 
Dadurch sind die Benutzer meist auf 
das einmal gekaufte Fabrikat festge- 
legt. 

MSX verspricht auch einen längeren 
Lebenszyklus der Heim-Computer- 
Systeme, weil sie durch die breite Ein- 
führung in Japan und Europa nicht so 
schnell durch neue Systementwick- 
lungen überholt werden. Entspre- 
chend ist das Philips VG 8010-System 
entwickelt worden: Es läßt sich je nach 
Bedarf und der wachsenden Erfahrung 
des Benutzers in seiner Leistungsfä- 
higkeit nach „oben" hin erweitern. 
Im MSX-System wird als Zentralein- 
heit ein Z 8Ö-Mikroprozessor verwen- 
det. Im Philips VG 8010 wird stan- 
dardmäßig ein 48 kB RAM (Random 
Access Memory) eingesetzt. Durch 
eine RAM-Erweiterung kann diese 
Kapazität auf mehr als 128 kB erwei- 
tert werden. 



Leistungsfähiger MSX-Basic Inter- 
preter 

Ein wichtiger Aspekt der MSX-Spezi- 
fikation ist der leistungsfähige MSX 



Basic Interpreter, der eine stärkere 
Version des Microsoft Extended Basic 
darstellt. Dieses MSX Basic ist als 
Standard im VG 8010 fest integriert. 
Es enthält eine geschlossenen Satz 
von 130 Befehlen, im Vergleich dazu 
verwenden andere Basic Interpreter 
nur ungefähr 85 Befehle. Ein Vorteil 
des leistungsfähigen MSX Basic be- 
steht darin, daß es- spezifische Befehle 
für eine Reihe zusätzlicher Funktio- 
nen enthält. Dadurch entfällt die häu- 
fige Anwendung von Poke Commands, 
so daß sich die Programm- Eingabe 
deutlich verkürzt und für den Anwen- 
der wesentlich vereinfacht. 



Vielfältige Software-Quellen 

Beim Start wird Philips zunächst über 
eine begrenzte Anzahl von Program- 
men verfügen. Aber es gibt bereits 
jetzt erkennbare Aktivitäten für 
MSX-Programme bekannter Softwa-' 
re-Anbieter, so daß rasch weiter Pro- 
gramme z. B. für die Themenkreise 
Aus- und Weiterbildung, Computer- 
Anwendung, Spiele und Spezialan- 
wendungen für den schnell wachsen- 
den MSX-Markt veröffentlicht wer- 
den. Diese Software wird in Form von 
steckbaren ROM-Cassetten, auf Com- 
pact-Cassetten oder auf Floppy Discs 
verfügbar. 



Farbgrafiken 

Der VG 8010 erzeugt erstklassige 
Farbgrafiken, es können bis zu 16 Far- 
ben und bis zu 32 Sprites dargestellt 
werden. Die grafischen Funktionen 
„Circle", „Line", „Draw" und „Paint" 
ermöglichen es, jede gewünschte gra- 
fische Darstellung, jeden gewünschten 
Hintergrund schnell und einfach zu 
entwickeln. Diese ausgezeichneten 
Farbgrafik-Darstellungen lassen sich 
besonders für Video-Spiele einsetzen, 
aber ebensogut können auch alle For- 
men von Grafik-Informationen oder - 
Darstellungen programmiert und ab- 
gebildet werden. 

Tongenerator 

Der VG 8010 besitzt einen 3-Kanal- 
Tongenerator und einen zusätzlichen 
Rauschgenerator, mit dem man z. B. 
entweder elektronisch Musik erzeu- 
gen kann oder Video-Spiele mit be- 
sonderen Toneffekten unterlegen 
kann. 

VG 8010-Tastenfeld 



Die Tastatur des VG 8010 umfaßt 72 
Tasten einschließlich der Cursor-Ta- 
sten und 5 Funktionstasten, mit denen 
insgesamt 10 frei programmierbare 
Funktionen aufgerufen werden kön- 
nen. Der Zeichensatz umfaßt 254 Zei- 
chen einschließlich einer Vielzahl von 
alphanumerischen und grafischen Zei- 
chen; ebenso können alle Buchstaben 
und Zeichen der wichtigsten europäi- 
schen Sprachen dargestellt werden. 

Vielfältige periphere Zusatzgeräte 

Folgende periphere Zusatzgeräte sind 
zum VG 8010 verfügbar: Als Massen- 
speicher ein Daten-Cassetten-Recor- 
der und später eine Floppy Disc-Sta- 
tion mit dem MSX-DOS-Betriebssy- 
stem, so daß alle CP/M-Programme 
wie z. B. Wordstar, Datastar und Su- 
percalc mit Hilfe eines speziellen Utili- 
ty-Programms verwendet werden 
können. Dann wird auch die Program- 
miersprache Logo für das MSX-Sy- 
stem zur Verfügung stehen. 
Es gibt zwei Matrix-Drucker mit 40 
bzw. 80 Spalten Schreibbreite. Ebenso 
gibt es Joysticks für Video-Spiele oder 
für Cursor-Bewegungen. Schließlich 
steht eine Reihe von Computer-Moni- 
toren zur Verfügung; natürlich kann 
der VG 8010 auch an ein Fernsehgerät 
über den Antenneneingang ange- 
schlossen werden. 

weiter Seite 78 
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SIC für den Anfänger! 



Einleitung 



Dieser Basic-Kurs ist für Nicht-Ma- 
thematiker, Nicht-Techniker, Nicht- 
Computerprofis geschrieben. Er soll 
ein Leitfaden für Anfänger sein, die 
sich der Programmierung ihres even- 
tuell auch zukünftigen Heimcompu- 
ters widmen wollen und dazu keine 
besonderen Voraussetzungen mitbrin- 
gen als den Wunsch, eigene Program- 
me (z. B. Spiele) auszutüfteln. Aus die- 
sem Grund wurde besonders auf die 
Verständlichkeit und Vollständigkeit 
dieses Kurses Wert gelegt. 
Der Kurs ist so aufgebaut, das der Le- 
ser so rasch wie möglich befähigt wird, 
eigene kleine Programme zu schrei- 
ben. Der beschriebene Basic-Umfang 
orientiert sich an den zur Zeit verbrei- 
teten Heimcomputern wie Commodo- 
re C-64, VC-20, C-16, Apple, Spec- 
trum, MSX und CPC 464, soweit es 
sich nicht um Details handelt, die nur 
von den technischen Gegebenheiten 
einzelner Typen abhängen. 

Was bedeutet eigentlich das Wort 
„ Programmieren " ? 

Der Computer ist eine Maschine, die 
dazu konstruiert wurde, Informatio- 
nen zu verarbeiten - sowohl Text- als 
auch Zahleninformationen. Benötigt 
man den Computer im Umgang mit 
Texten (z. B. Brief schreiben), so 
spricht man von der „Textverarbei- 
tung". Geht man vorwiegend mit Zah- 
len um, redet man von „Zahlenverar- 
beitung". 

Um dem Computer seine Aufgabe mit- 
zuteilen, ist es nötig, Befehle in einem 
Format oder einer „Sprache" zu geben, 
die der Computer versteht. Jeder 
Computer kann nur eine ganze Anzahl 
von verschiedenen Befehlen (ca. 100 - 
500) verstehen. Befehle, die der Com- 
puter direkt verstehen kann, werden 
Maschinensprache-Befehle genannt. 
Diese bestehen nur aus einer oder 
mehreren Zahlen, welche im Speicher 
des Computers abgelegt werden. 
Eine Folge von Befehlen, die etwas 
Nützliches bewirken, ist ein „Pro- 
gramm". Ein Computer befolgt ein Pro- 



gramm, indem er Befehl für Befehl aus- 
führt. Ideal wäre es, wenn man die 
Befehle in menschlicher Umgangs- 
sprache an den Computer weitergeben 
könnte. Das ist aber nicht möglich, da 
der Computer keine gewöhnlichen 
Sprachen versteht - weder gespro- 
chen noch geschrieben. Der Grund: 
Ein Computer führt Anweisungen ge- 
nau und exakt aus. Er arbeitet logisch 
und präzise, und er verlangt klare und 
eindeutige Befehle in der richtigen 
Reihenfolge und Form. 
Aus diesem Grund 
sind vereinfachte 

„Sprachen" für den 



Algorithmus - 

Pro grammablauf plan 



Programmieren ist eine interessante 
und spannende Tätigkeit geworden, 
eine Tätigkeit, die den weiten Bereich 
zwischen Handwerk und Kunst ein- 
nimmt. Wir wollen nun mit einigen 
wichtigen Dingen beginnen, die mit 
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Umgang mit Computern erfunden 
wurden. Man spricht von „höheren 
Sprachen", welche als eine Art Über- 
setzer (Interpreter) zwischen Benutzer 
und der eigentlichen Maschinenspra- 
che des Computers arbeiten. 
Für eine klare Verständigung mit ei- 
nem Computer kann nur eine begrenz- 
te Anzahl von englischen Wörtern be- 
nutzt werden, die als genau festgelegte 
Kommandos verwendet werden. Au- 
ßerdem müssen sich Anweisungen 
und Befehls-Folgen, die den Computer 
steuern sollen, ganz genau an be- 
stimmte Grammatikregeln (genannt 
Syntax-Regeln) halten. Die Kombina- 
tion aus einem begrenzten Wortschatz 
und einer Syntax wird Programmier- 
sprache genannt. „BASIC" ist eine sol- 
che höhere Programmiersprache. 



der handwerklichen Seite des Pro- 
grammierens zu tun haben. 
Eines der wichtigsten Hilfsmittel von 
Programmierern ist der Programmab- 
laufplan (Flußdiagramm). 
Gleichgültig, in welcher Programmier- 
sprache wir programmieren, ~ die 
Technik des Aufsteilens eines solchen 
Flußdiagramms ist immer die gleiche: 

1. Suche nach einem Lösungsweg (Al- 
gorithmus) 

2. Aufbau des Flußdiagramms nach 
Norm (DIN 44300) 

Jedes Programm kann zeichnerisch 
als Programmablaufplan (PAP) darge- 
stellt werden. Der Programmablauf- 
plan, auch Flußdiagramm genannt, be- 
steht aus folgenden nach DIN 44300 
normierten Sinnbildern, mit denen alle 
weiter Seite 16 



Computronic 



7 



sinc=li3ir- 



ZX8I 




Stellen Sie Ihre leichtathletischen Fähigkeiten 
hei der Olympiade unter Beweis 




In diesem Programm haben Sie die Chance, 
unter einer Vielzahl von Teilnehmern und 
sportlichen Gegnern Olympiasieger zu 
werden. Am Anfang des Programms wer- 
den die Anzahl der Mitspieler und deren 
Namen abgefragt. Anschließend beginnt 
der sportliche Wettkampf mit folgenden 
Disziplinen: 



Hürdenlauf Weitsprung B Speerwerfen 400-Meter-Lauf Diskuswerfen 100-Meter-Lauf 



•***^H^************************* 



Zu Beginn des Wettkampfes steht der 
klassische 100-Meter-Lauf, der natür- 
lich in neuer olympischer Rekordzeit 
zurückgelegt werden soll. Für diesen 
Rekordlauf benutzen Sie die Tasten 
„5" und „8" Ihrer Tastatur. Achten Sie 
darauf, daß Sie erst bei dem Komman- 
do „Los" starten, da andernfalls ein 
Fehlstart verursacht wird. Schon der 
2. verursachte Fehlstart führt zu Ihrer 
automatischen Disqualifikation in die- 
sem Wettbewerb. 

Nach dem Zieleinlauf wird die Lauf- 
zeit und die erreichte Punktzahl auf 
dem Bildschirm ausgegeben. 



Weitsprung 

Als zweite olympische Disziplin folgt 
der Weitsprung. Hier müssen Sie die 
Anlaufstrecke in sehr kurzer Zeit zu- 
rücklegen, damit Sie eine entspre- 
chende Weite erzielen. Dazu benutzen 
Sie wieder die Tasten „5" und „8". Für 
den Absprung drücken Sie die Taste 
„0". Nach drei erfolgten Sprüngen 
wird die jeweilige Weite und Punkt- 
zahl angezeigt. 

Diskuswerfen 

Zuerst muß man die Anlaufgeschwin- 
digkeit eingeben (Eingaben von 1-10 



sind möglich, Taste „0" oder „A" für 
10). Danach kann man mit der Taste 
„8" starten. Ist der Sportler möglichst 
nah an der Abwurflinie, Taste „0" 
drücken. Achten Sie aber darauf, daß 
die Scheibe auch nach vorne geworfen 
wird. 

Speerwerfen 

Hier muß man wieder mit den Tasten 
„5" und „8" möglichst schnell die An- 
laufstrecke zurücklegen und an der 
Abwurflinie durch Druck auf die Taste 
„0" den Speer einer neuen Rekordmar- 
ke entgegenwerfen. Insgesamt stehen 
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Sport, 
Spiel, 
Spaß! 



STEHEN 
LOESCHEN 



i REM HIER MUE8SEN 26 ZEICHEN 
Z REM DIESE ZEILE NICHT 
5 Gö Tö 100 

10 LET «•* M 001008007042020064054029035054234035 
034020350 1 1 1 20 1 77032248205 1 76&ZB I 950 1 2006027 " 

20 PRINT "LRENGE DER REH-ZEILE i " i 

23 INPÜT L 

2? PRINT L 

38 FÖR I»0 TÖ 25 

48 PÖKE 16514+1, VF1L FMK 3*141 TO 3*1+3? 

m NEXT I 

54 PÖKE ISS15;i>2»*INT CL/256) 

55 PÖKE 16516; INT <L/256> 
€0 PRINT U8R 16514 

90 PÖKE 16419,2 

95 PÖKE 16420/ 

96 PÖKE 16510,0 

97 LIST 2 

100 LET HD* 163 14 

101 LET L*0 
105 LET fif*"» 
118 LET PR*0 

120 PRINT RT Zi;0jHDJ l, i w i 

121 IF LEN INKEYi THEN LET L*Q 
130 FÖR 1*1 Tö 7 

133 LET Bf*Hi 

148 IF L-l THEN LET flf»CHRf < INT CPEEK HD/16)* 

■28>+CHRi <PEEK HD-INT (PEEK fflVI6>*16+28> 



142 
145 
147 
148 
130 
160 
170 
175 
180 
190 
195 
199 
200 
210 
230 
300 
318 
320 
330 



IF L"*0 THEN INPÜT R» 
IF LEN Hi*3 THEN GO TO 200 
IF m*"" THEN LET R*«B* 
IF LEN flf *6 THEN GO Tö 300 
PRINT fl*;« «j 

PÖKE AD; CODE HW16+C0DE Ri(2)-476 
LET RD*HD+1 

LET FRwPR+CöDE Hf*16+C0DE M<2>-476 

NEKT I 

PRINT "'»iPft 

SCRÖLL 

Gö Tö 110 

SCRÖLL 

LET RD»VRL 

Gö Tö 110 

LET L-l 

LET RD*VRL 

SCRÖLL 

Gö Tö 110 



m 



Ri<2 Tö ) 



Ihnen wieder drei Versuche zur Ver- 
fügung. 

Hürdenlauf 

Beim Hürdenlauf müssen Sie eine 
Strecke von 400 Metern zurücklegen 
und die auftauchenden Hürden über- 
springen. Dazu benutzen Sie die Taste 
„8", um schneller zu werden, ünd-die 
Taste „0" für den Sprung über die Hür- 
de. Dabei ist es ratsam, die Laufge- 
sch windigkeit nicht zu hoch zu wäh- 
len, da man beim Umrennen einer 
Hürde seine ganze Geschwindigkeit 
verliert und wieder neu beschleunigen 
muß. Ein Abbremsen der Geschwin- 
digkeit ist nicht möglich. 

400-Meter-Lauf 



Der 400-Meter-Lauf wird genau wie 
der 100-Meter-Lauf durchgeführt. 
Man sollte den Lauf aber nicht zu 
schnell angehen lassen, weil selbst auf 
der Tastatur eine gute Kondition von 
Ihnen verlangt wird. 
Nach jeder aufgeführten Disziplin 
wird der aktuelle Punktestand sämtli- 
cher Spieler angezeigt. 
Am Ende des Wettkampfes findet 
dann eine Siegerehrung statt. 

Möglichkeiten 

für Programmänderungen: 

Das Programm läßt sich durch einige 
Änderungen noch individuell anpas- 
sen. In der Zeile 8410 steht, wie oft 
jede Disziplin ausgetragen werden 
soll. Dies können Sie je nach Belieben 
ändern. Des weiteren können Sie neue 
Sportler selbst malen und entwerfen. 
Dazu können Sie das Listing 2 verwen- 
den. Startet man dieses mit „GOTO 
9500", erscheint in der Mitte des Bild- 
schirms ein Quadrat. Mit den Cursor- 
tasten (5-8) können Sie nun einen 
Punkt innerhalb -dieses Quadrats be- 
wegen. Mit der Taste „0" kann man 
zwischen weißer und schwarzer Linie 
wechseln und so einen neuen Sportler 
malen. Anschließend drückt man die 
Taste „P" und gibt die entsprechende 
Adresse für den neuen Sportler an. 
Eine Tabelle der Adressen befindet 
sich im Anschluß an das Listing 2. 
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BLACK STAR 

Für den ZX-81 




Der Aeroblaster stürzt sich auf den 
„Schwarzen Stern", das Hauptquartier 
des kosmischen Guerillas; er rast 
durch den Tunnel mit den Haupt- 
Energieanlagen und feuert wie wild 
um sich; da schlagen die Verteidiger 
zu... 

***•*•*****••** 



PLANETOIDS 

Für deo ZX-Spectrum (16 k und 
48 k) 

Tödliche Astro-Wolken treiben auf 
die Erde zu und müssen schleunigst 
zerstört werden. Aber wenn Sie mit 
Ihrem Raumkreuzer starten, um diese 
Mission durchzuführen, treffen sie auf 
einen unvermuteten Feind. Einer au- 
ßerirdischen Macht ist es offenbar 
ganz recht, daß die Erde von diesen 
Planteoiden bedroht wird: Sie hat eine 
fliegende Untertasse im Bannkreis der 
Gefahr positioniert, bewaffnet mit 
Cluster-Bomben. Sie müssen also 
gleichzeitig mit den Planetoiden und 
mit dem Feindschiff fertig werden. Ein 
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weiter nächste Seite 










ist. Als Bonus für die heldenhafte Ver- 
teidigung des Heimatplaneten gibt es 
auf der Kassette {nicht auf der Car- 
tridge) ein zweites Spiel: Missile, ein 
Abwehrkampf gegen angreifende Ra- 
keten. 

Vertrieb: ISS Individua.1 Software Service 
Jürgen Schumpich, Ottobrunn 



bewährtes Spectrum-Spiel, das jetzt 
auch als ROM-Cartridge erhältlich 
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Fortsetzung von Seite 7 

in einem Programmablauf möglichen Wege dargestellt werden. 



Die wichtigsten Symbole sind: 



— Bild 1 — 



f START J 

f STOP j 



A=B+C 



Grenzstelle: Anfang des Programm- 
ablaufplans. 



Grenzsteile: Ende des Programm- 
ablaufplans. 



Allgemeine Operation. Dieses Käst- 
chen kennzeichnet irgendwelche Tä- 
tigkeiten, hier z. B. 'Addition von B 
und C. Zuweisung des Resultats zu 
A'. 



NEIN 




Verzweigung 



Eingabe, z. B. über die Tastatur. 
Auch Ausgabe. 



Übergangsstelle. Wenn der Ablaufplan 
z. B. auf der nächsten Seite weitergeht, 
dann verwendet man zwei solcher 

Symbole. 



Das Flußdiagramm ist für umfangrei- 
che Programme unerläßlich. Dem Pro- 
fi-Programmierer hilft es rechtzeitig 
vor dem Schreiben des eigentlichen 
Programms, Fehler und Ungereimthei- 
ten aufzuspüren. Außerdem erspart 
ein Flußdiagramm eine umständliche 
und langwierige Fehlersuche im ferti- 
gen Programm. Wir wollen nun an 
Hand eines kleinen Beispieles ein 
Flußdiagramm erstellen. 
Die Aufgabe des Programmes besteht 
darin, den Beitrag für ein neues Club- 
mitglied festzulegen. 



Als Ausgangsdaten sind vorhanden: 
Geschlecht: männlich 
Ausbildung: ja 

Unser Programm arbeitet nach folgen- 
den Algorithmus: 

Der Jahresbeitrag für einen Mann be- 
trägt 100,- DM. Ist er in der Ausbil- 
dung, dann beträgt der Jahresbeitrag 
nur die Hälfte, also 50,- DM. Der Jah- 
resbetrag für eine Frau beträgt nur 
80,- DM. Ist diese noch in der Ausbil- 
dung, so beträgt der Jahresbeitrag nur 
40,- DM. 



Dieses Beispiel ist relativ einfach und 
bedarf in der Regel kein Flußdia- 
gramm. Wir haben dieses nur zur 
Übung aufgezeichnet: 

-- Bild 2 — 
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Sind Sie eine verheiratete Frau, so ge- 
nügt ein kurzer Blick auf Bild 2, um die 
Fragen „Sind Sie ein Mann" und „Sind 
Sie verheiratet" zu beantworten. 
Aus diesem Beispiel kann man sehen, 
wie ein Ablaufplan dabei hilft, einen 
auf den ersten Blick komplizierten 
Sachverhalt zu vereinfachen. 

Funktion und Vokabular von Basic 

Eigenschaften: 

Die höhere Programmiersprache Basic 
ist die am weitesten verbreitete Spra- 
che für den Computer. Sie wurde 1964 
am College of Dartmouth in New 
Hampshire (USA) entwickelt. Das 
Wort „Basic" steht für die Abkürzung 
„The Beginners All Purpose Symbolic 
Instruction Code". Das bedeutet etwa: 
„allgemein einsetzbarer, symbolischer 
Anweisungscode für Anfänger"." Basic 
ist jedoch weder leichter noch schwie- 
riger zu programmieren. Jedoch wer- 
den viele Befehle aus der englischen 
Umgangssprache verwendet, wie z. B. 
GOTO, READ, RUN usw. 

Basic-Inteipreter: 

Basic ist eine interpretative Sprache, 
was bedeutet, daß in Basic geschriebe- 
ne Programme beim Ablauf in Maschi- 
nensprache umgesetzt werden. Diese 
Methode erspart einen zusätzlichen 
Übersetzer. Neben dem Vorteil, daß 
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Basic auch in kleinen und billigen 
Rechnern eingesetzt werden kann, er- 
möglicht dies auch eine schnelle Kor- 
rektur von Programmfehlern. 
Nachteilig ist die durch die Überset- 
zung verursachte lange Ausführungs- 
zeit. 

Basic-Compiler: 

Obwohl Basic eigentlich eine Interpre- 
ter-Sprache ist, gibt es mittlerweile 
schon mehrere Basic-Compiler auf 
dem Markt. Dieser übersetzt das ei- 
gentliche Basic-Programm in Maschi- 
nensprache oder in einen speziellen 
Zwischencode. Durch eine Compilie- 
rung erreicht man je nach Compiler 
eine 2- bis lOfache Geschwindigkeits- 
erhöhung. 

Die ersten Schritte 

Wie bei den natürlichen Sprachen gibt 
es auch bei den Programmiersprachen 
viele Abarten. Auch Basic hat viele 
verschiedene „ Dialekte " . 
Fast jeder Hersteller von Computern 
hat eine eigene Version von Basic ent- 
wickelt. Es gibt jedoch einen bestimm- 
ten Grundwortschatz, welcher in jeder 
Version von Basic zu finden ist. 

Grundwortschatz in Basic: 

— Bild 3 — 



BA SIC-Sch lüsselw ort er: 




ABS 


IF 


RETURN 


ATN 


INPUT 


RND 


COS 


INT 


SGN 


DATA 


LET 


SIN 


DEF 


LOG 


SQR 


DIM 


NEXT 


STEP 


UND 


ON 


STOP 


!:XP 


PRINT 


TAB 


FOR 


READ 


TAN 


(iOSUB 


REM 


THEN 


GOTO 


RESTORE 





Ehe wir jedoch ans Programmieren ge- 
hen, müssen wir uns erst mit einigen 
Begriffen vertraut machen, um diese 
Einführung in die Programmierspra- 
che Basic richtig verstehen zu können. 

Zeichensatz (ASCII-Norm) 

Neben Zahlen besitzt ein Computer 

noch zahlreiche weitere Zeichen. Der 

Zeichenvorrat von Basic ist genormt 

und besitzt folgende Zeichen: 

26 Großbuchstaben (A-Z) 

10 Ziffern (0-9) 

Sonderzeichen 

Steuercodes 



Unterschiedliche Basic-Versionen 
können einen unterschiedlichen Vor- 
rat an Sonderz eichen besitzen. 
Als praktische Hilfe hier eine Zusam- 
menstellung des Standard-Ascii-Zei- 
chensatzes mit dezimaler, oktaler und 
hexadezimaler Schreibweise. 



wissen vielleicht noch aus dem Ma- 
thematikunterricht, daß man z. B. statt 
6543,2 auch 6,5432 x 10 3 schreiben 
kann. 

Man spricht dann von der technisch 
wissenschaftlichen Notation. Da Basic 
keine hochgestellten Zeichen kennt, 
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DECOCTALHEX 


ASCII characters 


DEC OCTALHEX 


ASCII 


DEC 


OCTAL HEX 


ASCH 





000 


00 


NUL([CTRL]A} 


50 062 


32 


2 


100 


144 


64 


d 


1 


001 


01 


SOH([CTRL|B) 


51 063 


33 


3 


101 


145 


65 


e 


2 


002 


02 


STXflCTRLJC) 


52 064 


34 


4 


102 


146 


66 


f 


3 


003 


03 


ETX(ICTRL]C) 


53 065 


35 


5 


103 


147 


67 


9 


4 


004 


.04 


EOT(JCTRL)D) 


54 066 


36 


6 


104 


150 


68 


h 


5 


005 


05 


ENQ ([CTRL)E) 


55 067 


37 


7 


105 


151 


69 


i 


6 


006, 


06 


ACK ((CTRL)F) 


56 070 


■38 


8 


106 


152 


6A 


i 


I 7 


007 


07 


BEL([CTRL]G) 


57 071 


39 


9 


107 


153 


6B 


k 


8 


010 


06 


BS ([CTRL)H) 


58 072 


3A 




108 


154 


6C 


l 


9 


011 


09 


HT([CTRL)I) 


59 073 


3B 


; 


109 


155 


6D 


m 


10 


012 


OA 


LF([CTRI_!J) 


60 074 


3C 


< 


110 


156 


6E 


n 


11 


013 


OB 


VT ((CTRL] K) 


61 075 


3D 


= 


111 


157 


6F 





12 


014 


OC 


FF aCTRLJL) 


62 076 


3E 


> 


112 


160 


70 


P 


13 


015 


OD 


CR ([CTRljM) 


63 077 


3F 


•> 


113 


161 


71 


<5 


14 


016 


OE 


SO ((CTRL)N) " 


64 100 


40 


@ 


114 


162 


72 


r 


15 


017 


OF 


Sl dCTRL]0] 


65 101 


41 


A 


115 


163 


73 


s 


16 


020 


10 


DLE (|CTRL]P) 


66 102 


42 


B 


116 


164 


74 


t 


17 


021 


11 


DC1 (tCTRLIO) 


67 103 


43 


c 


117 


165 


75 


u 


18 


022 


12 


DC2flCTRl]R) 


68 104 


44 


D 


118 


166 


76 


V 


19 


023 


13 


DC3flCTRL]S) 


69 105 


45 


E 


119 


167 


77 


w 


20 


024 


14 


0C4 gCTRL]T) 


70 106 


46 


F 


120 


170 


78 


X 


21 


025 


15 


NAK([CTRLlU) 


71 107 


47 


G 


121 


171 


79 


y 


22 


026 


16 


SYN ([CTRL)V) 


72 110 


48 


H 


122 


172 


7A 


z 


23 


027 


17 


ETB(fCTRL)W) 


73 111 


49 


I 


123 


173 


78 


{ 


24 


030 


18 


CAN ((CTRLJX) 


74 112 


4A 


J 


124 


174 


IC 


1 


25 


031 


19 


EM ((CTRL)Y) 


75 113 


4B 


K 


125 


175 


7D 


> 


26 


032 


1A 


SUBtfCTRLlZ) 


76 114 


4C 


L 


126 


176 


7E 




27 


033 


1B 


ESC 


77 115 


4D 


H 










28 


034 


1C 


FS 


78 116 


4E 


N 










29 


035 


1D 


GS 


79 117 


4r" 













30 


036 


1E 


RS 


80 120 


50 


P 










31 


037 


1F 


US 


81 121 


51 


Q 










32 


040 


20 


SP 


62 122 


52 


R 










33 


041 


21 


i 


83 123 


53 


s 










34 


042 


22 


11 


84 124 


54 


T 










35 


043 


23 


# 


85 125 


Si 


U 










36 ' 


044 


24 


s 


86 126 


56 


V 










37 


045 


25 


•/. 


87 127 


57 


u 










38 


046 


26 


& 


88 130 


58 


X 










39 


047 


27 


' 


89 131 


59 


Y 










40 


050 


28 


{ 


90 132 


5A 


Z 










41 


051 


29 . 


) 


91 133 


5B 


[ 










42 


052 


2A 


* 


92 134 


5C 


\ 










43 


053 


2B 


■f 


93 135 


5D 


J ' 










44 


054 


2C 


t 


94 136 


5E 


T 










45 


055 


2D 


- 


95 137 


5F 


- 










46 


056 


2E 




96 140 


60 












47 


057 


2F 


'/ 


97 141 


61 


a 










48 


060 


30 





98 142 


62 


b 










49 


061 


31 


1 


99 143 


63 


c 











Was sind Konstanten? 



In Basic unterscheidet man zwei Arten 
von Konstanten, ganzzahlige oder re- 
elle. 

Ganzzahlige Konstanten (Integer) 
können nur einen Wert ohne Nach- 
kommastelle annehmen. Reele Kon- 
stanten dagegen können auch Variab- 
len mit Nachkommastellen verarbei- 
ten. 

Hierbei ist eine Eigentümlichkeit zu 
beachten. Reelle Konstanten schreibt 
man in Basic nicht mit einem Dezimal- 
komma, sondern mit einem Dezimal- 
punkt: 

falsch: 3,14 -richtig: 3.14 
falsch: -6,0 - richtig: -6.0 
Für Dezimal zahlen gibt es in Basic 
noch eine andere Schreibweise. Wir 



wurde hier das Zeichen „E" für Expo- 
nent gewählt. 

Das bedeutet, daß die Zahl 6543,2 auf 
zwei verschiedene Arten geschrieben 
werden kann: 

entweder 6543,2 oder 6.5432 E3 
So, für dieses mal soll es genug sein. Im 
nächsten Teil beginnen wir, erste klei- 
ne Programme zu entwickeln. 

Frank Brau 
Elke Reif 

m _ 

Verwendete Literatur: 
Grundkurs in Basic, Ulrich Stroebel, Sy- 
bex-Verlag. Basic Brevier, Siegmar Wit- 
tig, Heinz Heise GmbH. ZX-Spectrum 

Handbuch, Steven Vickers, Sinclair. 
Commodore 116/16/plus 4, Ekkehard 
Kaier, Vieweg-Verlag. Schneider CEC 
464, Rodnay Zaks, Sybex-Verlag 
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Sonderteil 



Ritter Erik 

Der harte Kampf um Ihre Burg 







An einem schönen, strahlend-blauen 
Nachmittag im Mittelalter stehen Sie 
auf den Zinnen Ihrer Burg und genie- 
ßen den herrlichen Ausblick auf Ihr 
friedliches Land. Friedlich? Schauen 
Sie doch einmal an der Burgmauer 
herunterl Da versuchen doch tatsäch- 
lich die Krieger eines neidischen 
Nachbars, Ihre Burg zu erstürmen! 
Nachdem Sie sich von dem ersten 
Schreck erholt haben, greifen Sie zu 
Steinen und versuchen, die Feinde am 
Hochklettern zu hindern. Sollte es ei- 
nen von ihnen gelingen, die Burgmau- 
er zu überschreiten, stürzt er Sie hin- 
unter in den Burggraben. Nachdem es 
Ihnen gelungen ist, die erste Angriffs- 
welle zurückzuwerfen, formieren sich 
die Eroberer erneut und versuchen, 
Sie mit Lanzen zu treffen. 
Zu Beginn des Spieles können Sie 
wählen, ob Sie in die Rolle eines Rit- 
ters, eines Burgherrn oder eines Kö- 
nigs schlüpfen wollen, was sich natür- 
lich auf den Schwierigkeitsgrad aus- 
wirkt. 

Tippen Sie zunächst das Vorpro- 
gramm „Ritter Erik 1" ab, SAVEn Sie 
es, starten Sie es! Danach tippen Sie 
das Hauptprogramm „Ritter Erik 2" ab 
und SAVEn es auf Ihrer Kassette hin- 
ter „Ritter Erik 1". Zum späteren La- 
den brauchen Sie dann nur noch 
SHIFT und RUN zu drücken." 
Die Steuerung erfolgt wahlweise 
mit der Tastatur (Z = links; / = 
rechts; Leertaste = Werfen) oder 
Joystick in Port 2. 
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10 REM 

13 REM VORPROGRAMM FUER RITTER ERIK 

16 REM 

20 PaKE53280 v liP0KE532Bl r li-pRXNT"kJl" 

30 .PRlNT*gg»ISK£TTE ODER HCISASSETTE ?" 

35 PQK£198 T 0:WAIT198,l:GETA*5lFA*= ,, D"THEN500 

40 IFA*«"C"THEN200 

45 G0T020 

200 P0KE631 ,76: P0KE632, 1 1 1 s P0KE633, 13s P0KE19S„3 

210 PQKE44 s 43sPQKE43*256,0sNEW 

500 PRINT ,, üP0KE44,435P0KE43*256,OsNEW ,, 

5Ö5 PRINT H gSg_0AD'«CHR*<34> "RITTER ERIK 2"CHR*<34> «' , 8" 

510 PRINT"öSIMäRUN" 

520 P0KE19S,4sPaKE631,198P0KE632,13sP0KE633,138P0K£634,13 

READY. 

10 REM ******************************** 
15 REM * * 

20 REM * RITTER ERIK # 

25 REM .* BY * 

30 REM * THOMAS GQESMANN * 

45 REM *..... ..*■■. 

50 REM ******************************** 

100 P0KE497Ö0,0 

1 05 PRI NT » ü« a V*53248i CS~5S732 s SI=*54272s RU* 1 s LE=3s SP«6 

115 PaKE2ll,0sP0KE214,12sSYSCS5PRINT"sBITTE WARTEN* . .DATEN WERDEN EINGELESEN" 

120 P0KE204O, 131 :P0KE2041 f 128sP0KE2042, 1285POKE2043, 12BsP0KE2047, 130 

130 POKEV+32 # 14sPOKEV+33,14:POKEV+34 f 7sPOKEV+35j2sP0KEV+37 s 9!P0KEV+39,0 

135 P0KEV+46 $ 7sP0kEV+22,216sP0KEV+27 f 129sF0KEV+21 ,0 

1 60 D IMPOM 1 ) s F0RA=0T0 1 1 : READPO: PO < A ) «PO : NEXT 

165 F0RA=lT04sREADC0<A)sNEXT 

185 REM 

190 REM ZEICHEN DEFINIEREN 

195 REM 

200 P0KE21 1,0: PQKE21 4,10s SYSCS 

205 F0RA=5888T06113sREADB:PÖKEA,B:Pl«Pl-*-BsNEXT 

210 IFPlO29308THENPRINT"FALSCHE DATAS IM MUS IKPROG RAMM": STOP 

215 FÖRA*6144T06544 s READBs POKEA ,Bs P2*P2+Bs NEXT 

220 IFP2<>23128THENPRINT M FALSCHE DATAS IN DEN MUSIK -DAT AS'*: STOP 

225 SYS5B8S s PQKE53272 ,19s REM ZE ICHENS ATZ VERSCH I EBEN 

230 F0RA=0TG8: READ ADR :ADR=2Ö48+B* ADR 

240 F0RB=0TO7s READI s POKEADR+B , I s NEXTs NEXT 

245 F0RA-OTa64*6-i : READB: F0KE8192+A,Bs NEXT 

265 F0RA=49i85T049190sP0KEA,2:IFRND(l)<.5THENPaKEA,254 
267 NEXT:PQKE49 152,1 
270 GQSUB50Ö0 

275 P0KESI+24 f 15:P0KESI+5jOlP0KESi+6,240sP0f<ESI+12,8sPOKESI+13,O 

280 POKESI+ 19,8s PQKESI+2O,0 

285 REM 

290 REM SPIELFELDAUFBAU 

295 REM . . . 

300 POKEV+17,15 

305 PRINT"y[S -\ -\ ffiPUNKTEs LEBENs £>'\ -'V . 

310 PRINT" ' JJ]y\\ ■ jj\ j\\« 

320 PRINT" ^UUs . rNLNLX"- '■'.-■'■'* 

330 PRINT" -' n-\ J n\\" 

335 PRtNT" - ; lj\VL\ -^LA -LX -'L\.-'L\ ^LV LiA'i 

340 F0RA«0T09 

345 IFAO2ANDAO5THENG0TD360 

350 PRINT: PRINT» J.n^V^L-VL-'L-'L^LWLJLAV n \\" 

355 PRINT" J^\^Ul/UUUiy\^tsUUi^UlS^ '- -' V' ; s NEXT 
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360 PRINTsPRINT" -- J L- J V-^L-L- ? Ly.L- ; Ly L- J L-' L J L- ! L-' L-' L-' W-'L.-'W 

365 PRINT" -H-- , \VL-L-L-L J L J LJL J L J L-'L- J L J L-'L-' V^u--' V| 8NEXTsPOK£646,0 

370 PQKE2il,298PQKE214,0sSYSCS5PRlNTLEsP0KEV+17,23 

485 REM 

490 REM M-CODE AUFRUFEN 

495 REM 

500 TI*«" 000000" 

505 F0RA*0T0ii:P0KEA+53250,P0<A) sNEXT 

510 F0RA=*4OTa45sP0KEV+A,Ca(RU):NEXTsPaKEV+27,1295PGKE49i53,OsP0KEV+16,6 

515 F0RA=49168TO49I768P0KEA,0sNEXT 

520 PQKEV, iOO:POKEV+l,B4sPOKEV+14,iOOsPOKEV+15,7S:POKE49167,10:POKESI+12,Ö 

525 GOSUB1000 

530 PQKEV+21,255:SYS4096:POKE56322,255 

540 IFPEEK(49160X>ÖTHENGÖT01500 

545 IFPEEKC 49166 ) O0THENGÖSUB2000 

SSO SDT0505 

985 REM 

990 REM . RUNDE AUSWAEHLEN 

995 REM 

1Ö0Ö PDKE49155,RUsP0KE4102,SP 

1005 IFRU~10RRU=3THENGOT01200 

1010 PQKE2044,132:P0KE2045,i33:PQKE2046,133 

1020 PQKEV-»-28,143:POKEV+43,O:P0KEV+44,0sPOKEV+45,0 

1050 RETURN 

1200 PQKE2044,128sP0KE2045 f 12asPaKE2046,12S 

1210 P0KEV+28,254sP0i<EV+43,C0(RU) 5PÜKEV+44,C0(RU) sP0KEV+45,C0(RU) 

1250 RETURN 

1485 REM ■ . . ■ 

1490 REM RUNDE BEENDET 

1495 REM 

1500 P0KE211,OsPOKE214,7sSYSCSsP0KEV4.21 f 129 

1505 F0RA«0T0i0sPRINTSPC(7> M »sNEXT5PQKE214,84SYSCS 

1510 PRINTSPC<8)"aGRATUI_ATI0N !!!'&" 

1515 PRXNTSPC(8>"S5lE HABEN RUNDE"RU" IN DER3S"\- 

1520 PRINTSPC(8> U 2EIT VONGS" 

1525 T«VAL<RIGHT*(TI*,3) ) 

1530 FR INTSPC (7) T" SEKUNDEN GESCHAFFT^ " 

1540 PÖKE49160,OsPOKE4916i,0:BO=100-T 

1550 SCaPEEK (49163) *256*PEEK (49164) 

1555 FDKESI+4, 33s FQRA=0T04 

1560 BO*BO-1 : SC*=SC+iÖ:P0KE21 1 , 16: P0KE2 14,0s SYSCSs PRINTSCs POKESI+i , A*10+10s NEXT 

1570 POKESI+4,0:FaRA-OT0100sNEXTs IFB0>0THENG0T01555 

1580 F0KE491 64, INT (SC/256) 8P0KE49163, SC-INT (SC/256) *256 

1590 RU«RU+1:F0RAä0T02000sNEXT8P0KE49155,RU:P0KEV+21,255 

1595 1FRU«5THENRU*1 

1600 IF'.SP>4THEN SP=SP-.5 

1650 G0T0300 

1985 REM 

1990 REM LEBEN VERLOREN 

1995 REM 

2000 LE«LE~lsP0KE2 11,29 SP0KE21 4,0 s SYSCSs PRINTLE 

2010 IFLE*ÖTHEN3000 

2020 F0RA=0TQ200Ös NEXT SP0KE49 166,0 

2050 RETURN 

2985 REM -. ^ 

2990 REM SPIELENDE 

2995 REM 

3000 P0KE211, 08 PÖKE214, 12s SYSCSs PRINT" WOLLEN SIE NOCH EINMAL SPIELEN ? " j 

30 1 POKE 1 98 , O s WA I T 198 , 1 : GETA* s IFA*- " J " THENCLR s GOTO 1 05 

3020 IF A$~"N M THENSTOF 

3030 G0T03010 

4985 REM 
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4990 REM SRI ELANFANG 

4995 REM 

SOÖO FtKE19B,0sPR|NT"g^^g" 

5010 PRINT" ^«.l^T&H^^a* 

5020 PRINT" iiäid-S i^iS 

5030 PRINT" E ES .. S * ^aj» 

5035 PÖKEV+28 , 6 : PÜKE V+40 , 7 : POKE V+4 1 , 7 

5040 POKEV+2,505 P0KEV4-4,25!P0KEV+3,90: P0KEV+5,90s POKEV+21 ,6: POKEV+16,4 

504S IF PEEK ( 49700 ) «255THENPR INT 'TSE" : GOT051 20 

5050 P0KE49700,255:P0KESI+24,15:PDKESI+5,9sP0KESI+6,0sPaKESI+4,0 

5055 P0KESI+i2,9sP0KESI+13,0sP0KESI+ll,0 

5060 PGKE49232,l:P0KE49233,0sP0KE49234,l:PC5KE49235,0 

5070 P0KESI+4,0sPQKESI+ll,0sSYS5952 

5080 FaRA=4096TQ5616sREADB:P3«P3+BsPGKEA,BsNEXT 

5090 IFP3OlB0760THENPRINT ,, M^FALSCHE DATAS IM ZWEITEN MASCHINENPROSR. "sSTOP 

5100 PRINT"IM»i> JOYSTICK "8PRINT"a2> TASTATUR" 

5105 INPUTSR: IFSR< >1 ANDSR< >2THENPRINT"~Zj" : GÜTOSIOS 

5110 IFSR=1THEN5120 

5115 P0KE4O97,255sP0KE4125,2O35P0KE4126,0:POKE4129,12:POKE4137,55:P0KE4145,6O 

5117 P0KE4128,201;PaKE4X36,201:P0KE4144 f 201 

5120 PRINT'^BITTE WAEHLEN SIE DEN SCHWIERIGKEITSGRAD" 

5130 PRINT" 1) RITTER' , 5PRINT , «2) BURGHERR" : PRINT "3 > KOENIG^" 

5 1 40 I NPUTSß s I FSG< > 1 ANDSG< >2ANDSG< >3THENPR I NT "~n n s G0T05 1 40 

5190 POKE4110, t4~5G>+35P0KEV+16,0:P0KEV+21,O 

5200 RETURN 

40985 REM % 

40990 REM DATAS FUER SPR I TEPOS I T I ONEN 

40995 REM 

41000 DATA200,33, 100,0,1:60,20,240,245, 180, 10, 130, 15 

41010 DATA3,5,10,13 

41985 REM 

41990 REM M-CODE FUER MUSIKPROGRAMM 

41995 REM 

42000 DATA169, 127, 141, 14, 220, 169, 51, 133, 1,169, 0,133, 139, 133,141, 169, 8, 133, 140 

42001 DATA169,208, 133, 142, 162,8, 160,0, 177, 141 ,145, 139, 136,208,249,230, 140,230 

42002 DATA142, 202, 208, 242, 169, 55, 133, 1,169, 129, 141, 14,220, 169, 0,160, 0,153,0 

42003 DATA192, 153,0, 193, 136,208,247,96 

42004 DATA234, 234, 169, 152, 133, 141, 169, 24, 133, 142, 169, 0,133, 139, 169, 24, 133, 140 

42005 DATA120, 169, 95, 141, 20, 3, 169, 23, 141, 21, 3, 88, 96, 206, 80, 192, 173, 80, 192, 208 

42006 DATA41, 169, 0,141, 4, 212, 172, 81, 192, 177, 139, 141, 0,212, 200, 177, 139, 201, 255 

42007 DATA208, 3, 76, 203, 23, 141, 1,212, 200, 177, 139, 141, SO, 192, 169, 33, 141, 4, 212 

42008 DATA2Ö0, 140, 81, 192, 206, 82, 192, 173, 82, 192, 208, 39, 169,0, 141,11,212,172 

42009 DATA83, 192, 177, 141 , 141 ,7,212,200, 177, 141 ,201 ,255,208, 1% 96, 141 ,8,212,200 

42010 DATA177, 141, 141, 82, 192, 169, 33, 141, 11, 212, 200, 140, 83, 192, 165, 203, 201, 64 

42011 DATA240, 3, 76, 203,23,76, 49,234, 120, 169, 49, 141, 20, 3, 169, 234, 141 ,21, 3,88 

42012 DATA169, 0,141, 11, 212, 141, 4,212,76, 49, 234 
43985 REM ' 

43990 REM MUSIK-DATAS 

43995 REM 

44000 DATA219, 43, 60, 219, 43, 15, 18, 39, 15, 207, 34, 15, 18 ,39, 15, 219, 43 ,30, 18, 39, 30 
44005 DATA207 , 34 f 60 ,207 , 34 , 60 , 207 ,34 , 1 5 , 18 , 39 , 15 ,207 , 34 r 1 5 , 2 1 9 , 32 , 15 , 207 , 34 , 30 
44010 DATA69, 29, 30, 20, 26, 60, 237, 21, 15,20, 26, 15, 207, 34, 15, 18, 39, 15,219, 43, 30 
44015 DATAIS, 39, 15,207,34, 15, 18,39,60, 18,39,60,219,43,60,219,43,15,18,39, 15 
44020 DATA207, 34 ,15, 18, 39, 15, 219, 43, 30, 18, 39, 30, 207, 34, 60, 207, 34, 60, 207, 34, 15 
44025 ÖATA18,39, 15,207,34,15,219,32, 15,207,34,30,69,29,30,20,26,60,237,21, 15 
44030 DATA20, 26, 15, 207, 34, 15, 18, 39, 15, 219, 43*30, 18, 39, 30, 207,34, 60, 207, 34,45 
44035 DAT AO, 0,20 ,0,255 

445O0 DATA ISO, 8, 15, 10, 13, 15, 247, 10, 15, 10, 13, 15, 180, 8, 30, 10, 13, 30, 180, 8, 15 
44505 DATA180,8, 15, 10, 13, 15, 158, 11, 15,180, 8, 15,247, 10, 15, 180*8, 15, 196, 9,15 
44510 DATA247, 10, 15, 158, 11, 15, 103*17,15, 162,14, 15, 103, 17, 15, 158, 11 ,30, 162, 14,30 
44515 DATA 158, 11 ,15,103,17,15,162, 14,15,103,17,15,180,8, 15,1 0,i 3,1 5,247, lO, 15 
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44520 DATAIO, 13, 15, 180,8,30, 10, 13,30,1BQ,8, 15, 10, 13, 15,247, 10, 15, 10, 13, 15 

44525 DATA196,9, 15, 247, 10, 15, 158, 11, 15, 196, 9, 15, 10, 13, 15, 158, 11, 15, 247, 10, 15 

44530 DATA196, 9, 15, 180, 8 »15, 10, 13, 15, 247, 10, 15, IQ, 13, 15, 180, 8,30, 10, 13, 30 

44535 DATA180, 8, 15, 10, 13, 30, 10, 13, 15, 180, 8, 15, 196, 9, 15, 247, 10, 15, 180, B, 15 

44540 DAT AI 58,1 1,15, 103, 17, 15, 162, 14, 15, 103, 17, 15, 158, 11, 30, 162, 14,30, 158, 11, 15 

44545 DATAIO, 13, 15, 162, 14, 15, 109, 16, 15, 103, 17, 15, 109, 16, 15, 162, 14, 15, 10, 13, 15 

44550 DATA180,8,30, 10, 13,30, 180,8, 15, 10, 13,30, 10, 13, 15, 180,8, 15, 10, 13, 15 

44555 DATA247, 10, 15, 10, 13, 15, ISO, 8, 15, 10, 13, 15, ISO, 8, 15, 0,0, 60 

49985 REM 

49990 REM DATAS FUER ZEICHEN 

49995 REM 

50000 DATA1 12, 254, 254, 171, 171, 171, 171, 171, 171 

50005 DATA1 10, 186,254,239,87,87,87,87,87 

50010 DATA109, 255, 255, 171, 171, 171, 171, 171, 171 

50015 DATA12S, 87, 87,87, 87, 87, 87,255, 255 

50020 DAT A75, 255, 255, 234, 234, 234, 234, 234, 234 

50030 DAT A76, 255, 255, 170, 170, 170, 170, 170,170 

50040 DATA77, 255, 255, 17 1,171, 171, 171, 171, 171 

50050 DATA78,255, 255, 172,172,176, 176,192,192 

50060 DATA79, 255, 255, 58, 58, 14, 14,3,3 

50985 REM 

50990 REM DATAS FUER SPRITES 

50995 REM 

S1000 DATAO, 128,0, 18, 160,0,18, 160,0,33,80,0,41,80,0,42,106,0,42, 170,0,42, 170,0 

51010 DATA42, 170, 0,10, 168, 0,10, 168, 6, 10, 168, 0,5, 84, 0,10, 168,0, 10, 168, 0,10, 168, 

51Q2Ö DATAIO, 168, 0,10, 168, 0,5, 20, 0,0,20, 0,0,20, 0,0 

51050 DATAQ, 128,0,2, 161, 0,2, 161 ,0,1, 82, 0,1, 90, 0,42, 106, 0,42, 170, 0,42, 170,0 

51Ö6Ö DATA42, 170, 0,10, 168, 0,10, 168, 0,10, 168, 0,5, 84, 0,10, 168,0, 10, 168,0, 10, 168, 

51070 DATAIO, 168,0,10, 168,0,5,20,0,5,0,0,5,0,0,0 

51100 DATA2,0, 0,10, 128,0, 10, 128,0, 5, 64,0,5, 64, 0,41, 160,0, 170, 168, 0,170, 168,0 

51110 DATA170, 168,0, 170, 168, 0,170, 168, 0,170, 168, 0,149,88, 0,106, 164, 0,106, 164,0 

51120 DATA42, 160,0,42, 160, 0,42, 160, 0,20, 80, 0,20, 80,0, 20, 80,0,0 

51150 DATA63,240, 0,127, 248, 0,255, 252, 0,255, 252,0, 255,252, 0,127, 24,8, 0,31, 224,0 

51160 DATAO, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0,0,0,0,0, 0,0,0 

51170 DATAO, 0,0,0, 0,0,0,0,0,0 

512ÖO DATAO, 0,0, 0,1, 0,0, 7, 128, 0,7, 128, 0,15, 0,0, 15, 0,0, 14, 0,0, 12, 0,0, 24,0,0, 24,0 

51210 DATAO, 48, Ovo, 48, 0,0, 96, 0,0,96, 0,0, 192, 0,0, 192,0,1,128,0,1,128,0,0,0,0,0,0 

51220 DATAO, 0,0, 0,0 

51250 DATAO, 0,0,0, 128, 0,1, 224,0, 1,224, 0,0, 240, 0,0, 240, 0,0, 112,0,0, 48,0, 0,24,0 

51260 DATAO, 24, 0,0, 12, 0,0,12,0,0,6, 0,0, 6, 0,0, 3, 0,0, 3, 0,0, 1,128, 0,1, 128,0, 0,0 

51270 DATAO,0, 0,0,0,0,0 

54985 REM 

54990 REM DATAS FUER M-CODE 

54995 REM ' 

55000 DATA169, 224, 141, 2, 220, 169, 5, 141, 6, 192, 173, 30,208, 162, 6, 160, 255, 136, 20B 

55001 DATA253, 202, 200, 250, 173,14,192,208,55,173,0,220,168,41,4,208,3,32,133 

55002 DATA16, 152,41, 8,208, 3, 32,227, 16,152,41,16,208,10,173,0,192,240,5,169 

55003 DATA1, 141, 1,192, 173, 1,192,240, 3, 32, 63, 17, 173,0, 220, 41, 1,208, 6, 169, 224 

55004 DATA141, 2,220,234, 32, 218, 17, 76, 21, 21, 206, 6, 192, 173, 6, 192, 208, 169, 32, 109 

55005 DATA18, 173,3,192,201,2,240,7,201,4,240,3,76,123,16,32,80,19,32,196,19 

55006 DATA32, 147,20,32,209,20,76,5, 16,234,234,0,0,173,16,208,41,128,208,45 

55007 DATA173, 14,208, 201, 58, 208,38, 173, 0,192, 240, 1,96, 169, 80, 141, 1,208, 169 

55008 DATA58, 141, 0,208, 173, 16, 208,41, 254, 141, 16, 208, 169, 1,141, 0,192, 173, 21 

55009 DATA208, 9, 1,141, 21, 208, 96, 173, 1,192, 208, 18, 206, 0,208, 173,0, 208, 201, 255 

55010 DATA20B, 8, 173, 16,208,41, 254, 141, 16, 208, 206, 14,208,173,14,208,201,255 

55011 DATA208, 8, 173, 16, 208,41, 127, 141, 16, 208, 96, 173, 16,208",41, 128, 240, 42, 173 

55012 DATA14, 208, 201, 40, 208, 35, 173, 0,192, 240, 1,96, 169, 80, 141, 1,208, 169, 40 ,141 

55013 DATAO, 208, 173, 16, 208, 9, 1,141, 16, 208, 169, 1,141, 0,192, 169, 255, 141, 21, 208 

55014 DATA96, 173, 1,192, 208, 19, 234, 238, 0,208, 173, 0,208, 201, 0,208, 8, 173, 16, 208 

55015 DATA9, 1,141, 16, 208,238, 14, 208,173, 14,208,201, 0,208, 8, 173, 16, 208,9, 128 

55016 DATA141 , 16,208,96, 169, 128, 141 ,27,208, 169,33, 141 ,4,212, 169,248,56,237 

55017 DATA1, 208,74,74, 141, 1,212, 238, 1,208, 238, 1,208, 173, 1,208, 201 ,240,208,56 
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55018 DATA169, 1, 141 ,0, 192, 169,0, 141 ,4,212, 141 ,1, 192, 173, 16,203,41 , 128,240, 11 

55019 DATA 173, 16,208,9, I , 141 ,16,208,76, 136, 17, 173, 16,208,41 ,254, 141 , 16,208 

55020 DATA173, 14,208,141 ,0,208, 169, 129, 141 ,27,208, 169,84, 141 , 1 ,208,96, 160,6 

55021 DATA132, 2, 152, 24, 101, 2, 170, 189, 1,208, 56, 233, 5, 205, 1,208, 176, 41, 189,1 

55022 DATA2ÖS , 24 , 1 05 , i 5 , 205 , 1 ", 208 , 1 44 , 30 , 1 89 , G, 208 * 56 , 233 , 10 , 203 , ö f 208 , 1 76 

55023 DATA 19, 1 73 , , 208 , 56 , 233 ,1 4 , 22 1 , G , 208 , 176 ,8 , 169 , 255 ,1 53 , 16 , 1 92 , 234 , 234 
53024 DATA234, 136,208, 194,96, 160,6, 185, 16, 192,240,35, 132,2, 152,24, 101 ,2, 170 
55Ö25 D ATA232 , 254 , ,208 , 254 , Ö ,208 , 1 89 , , 208 ,20 1 , 250 ,1 44 , 1 4 , 1 69 , O , 1 53", 16, 1 92 

55026 DATA32 , 5 , 2 1 , 32 , i 35 , 2 1 , 32 , 8 , 1 S , 1 36 , 208 ,213, 96 , 1 69 , , 56 , 1 40 , , 193 , 200 , 42 

55027 DATA136, 208,252, 141 , 1 , 193, 169,255,56,237, 1 ,193, 141 ,2,193, 172,0,193, 165 

55028 DATA162, 74, 74, 74, 74, 141, 3, 193, 152, 10,1 0,1 0,10, 10, 105,48,237,3,193,141 

55029 DAT A4, 193, 173,3, 192,201 ,2,240,7,201 ,4,240,3,76,97, 18, 192,4,144,6, 169 

55030 DATAO, 157,0,208,96, 169,248,157,0,208,173,4,193,10,56,233,48,157,255,207 

55031 DAT A96, 169, 248, 157, 0,208, 173, 4, 193, 157, 255, 207, 96, 173, 3, 192, 201, i, 240 

55032 DAT A3 , 76 , 1 74 , 1 8 , 234 , i 60 , 6 , 1 85 , 1 6 , 192 , 208 , 43 , i 32 , 2 , 1 32 , 24 , 1 1 , 2 ,170 , 222 

55033 D AT A 1 , 203 , 1 89 , 1 , 208 , 2Q 1 , 76 , 208 , 5 , 1 69 , 255 ,141,14,192,189,1, 208 , 74 , 1 76 

55034 DATAi5,74, 176, 12,74, 176,9, 169, 1,56, 249,248, 7^153,248,7,136,208,205,96 

55035 DATA173,3, 192,201 ,3,240,3,76, 15, 19, 160,6, 185, 16, 192*208,76, 132, 2, 152 

55036 DATA24, 101 ,2, 170,222,1 ,208, 189, 1 ,203,201 ,76,208,5, 169,255, 141 , 14, 192 

55037 DATA1S9, 1 ,208,74, 176, 15,74, 176, 12,74, 176,9, 169, 1 ,56,249,248,7, 153,248 

55038 DATA7, 189, 0,208, 24, 121, 32, 192, 157, 0,208, 189, 0,208, 201, 67, 144, 7, 201, 253 

55039 DATA176,3,76, 1 1 , 19, 169,0, 56, 249,32,192, 153,32, 192, 136,208, 172,96, 173 

55040 DATA3, 192, 201, 2, 240, 3,76, 50, 20, 234, 160, 3, 185, 16, 192,208, 43, 132,2, 152 

55041 DATA24, 101 ,2, 170,222, 1 ,208, 189, 1 ,208,201 ,76,208,5, 169,255, 141, 14, 192 

55042 DATA 1 89 , 1 , 208 , 74 , 176 , 1 5 , 74 , 176 , 1 2 , 74, 176 ,9 , 1 69 * 1 , 56 , 249 , 248 , 7 , 1 53 , 248 

55043 DATA7 , 136,208,205,96, 160, 1 , 162, 16,142,32 , 193, 132,2,152,24, 101 ,2, 170, 185 

55044 DATA48, 192,208,81 ,165, 162,201 , 160, 176,75, 173, 16,208,41,128,10, 173,14 

55045 DATA208, 106, 141, 33, 193, 189, 0,208, 74, 205, 33, 193, 176, 13, 169, 1,153, 48, 192 

55046 DATA169,132, 153,251,7,76,150,19,169,255, 153,48,192,169,133,153,251,7 

55047 DATA189, 0,208, 157, 6, 208, 189, 1,208, 157, 7,208, 169,255, 56,237,32, 193", 141 

55048 DATA34, 193, 173, 16, 208, 45, 34, 193, 141, 16,208,173,32,193,24,109,32,193,141 

55049 DATA32, 193, 200, 192,4, 208, 148, 96, 160, 1,162, 16,142, 32, 193, 185, 48, 192, 240 

55050 DATA60, 132, 2, 152, 24, 101, 2, 170, 222, 7, 208, 222, 7, 208, 222, 7, 208, 189,7, 208 

55051 DATA201 ,3, 176,5, 169,0, 153,48, 192, 189,6,208,24, 121 ,48, 192, 157,6,208, 189 

55052 DATA6, 208, 208*9, 173, 16,208,13,32,193,141,16,208,234,234,234,234,234,234 

55053 DATA234, 234, 173, 32, 193, 24, 109, 32, 193, 141, 32, 193, 200, 192, 4, 208* 176, 96 

55054 DATA169, 0,141, 0,192, 141, 1,192, 169, 2, 141, 3, 192, 169, 0,141, 5, 192, 141, 6, 192 

55055 DATAO, 173, 3, 192, 201, 4, 240, 3, 76, 146,20, 160,3, 185, 16, 192, 208, 76, 132,2, 152 

55056 DATA24, 101, 2, 170,222, 1,208, 189, 1,208, 201, 74, 208, 5, 169,255, 141, 14, 192 

55057 DATA189, 1 ,208,74, 176,15,74, 176, 12,74, 176,9, 169, 1 ,56,249,248,7, 153,248 

55058 DATA7, 189, 0,208, 24, 121, 32, 192, 157, 0,208, 189, 0,208, 201, 67, 144, 7, 201 ,253 

55059 DATA176,3,76, 143,20, 169,0,56^,249,32, 192, 153,32, 192, 136,208, 172,96, 160 

55060 DATA3, 132, 2, 152, 24, 101, 2, 170, 189, 7, 208, 56, 233, 10, 205, 15, 208, 176,38, 139 

55061 DATA7, 208, 24, 105, 15, 205, 15, 208, 144, 27, 189, 6, 208, 56, 233, 10, 205, 14, 208 

55062 DATA176, 16, 189, 6, 208, 24, 105, 5, 205, 14, 208, 144, 5, 169, 1,141, 14, 192, 136, 208 

55063 DATA197, 96, 206, 15, 192, 173, 15, 192, 240, 23, 201, 8,240, 1,96, 169, 0,141, 11, 212 

55064 DATA169, 2, 141, 8, 212, 169, 33, 141, 11, 21 2, 96, 234, 234, 169, 0,141, 11, 212, 169 

55065 DATA3, 141, 8,212, 169, 33, 141, 11, 212, 169, 16, 141, 15, 192,96, 169, 0,141, 18,212 

55066 DATA169, 2, 141, 15, 212, 169, 129, 141, 18, 212, 96, 173, 8, 192, 240, 3,76, 234, 21 

55067 DATA173, 14, 192, 208, 3, 76, 235, 21, 169, 254, 141, 21, 208, 169, 0,141, 3, 192, 141 

55068 DATA27, 208, 238, 15, 208, 169, 0,141, 4, 212, 173, 15, 208, 201, 248, 240, 3, 76, 89 

55069 DATA16,169, 16, 141, 17,208, 162,32, 160,0,136,208,253,202,208,250, 169,23 

55070 DATA141, 17, 208, 162, 32, 160, 0,136, 208, 253, 202, 208, 250, 169, 16, 141, 17, 208 

55071 DATA162,32, 160,0, 136,208,253,202,208,250, 169,23,141,17,208,169,9,141 

55072 DATA12, 212, 32, 222, 20, 169,0, 141 ,4,212, 141 , 18, 212", 96, 173,3,192,201 ,2,240 

55073 DATA24, 201, 4, 240, 20, 173, 11, 192, 24, 105,50,141, 11, 192, 173, 12, 192, 105,0 

55074 DATA141, 12, 192, 76, 187, 21, 192, 4, 144, 232, 173, 11, 192, 24, 105, 75, 141, 11, 192 

55075 DATA173, 12, 192, 105, 0,141, 12, 192, 169, 0,133, 214, 169, 17, 133, 211, 234, 234 

55076 DATA234, 152, 72, 138, 72, 32, 108, 229, 173, 12, 192, 174, 11, 192, 32, 205, 189, 104 

55077 DATA1 70, 104, 168, 238, 9, 192, 173*9,192,201, 35, 208,5,169, 1,141, 8, 192, 96, 96 

55078 D AT A76, 89, 16,234,234,234 
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Spritehilfe 



Ein Anwendungsprogramm für den Commodore 64 



Das folgende kurze Anwendungs- 
programm ist ein Sprite-Maker 
ohne Befehle. 

Das heißt, zuerst wird die Spritefarbe 
gewählt und anschließend die Hinter- 
grundfarbe des Bildschirms festgelegt. 
Jetzt hat man die Möglichkeit, mit Hil- 
fe der Cursortasten den Cursor in ver- 



schiedene Richtungen zu bewegen 
und somit die gewünschten Sprites zu 
kennzeichnen. Die entsprechenden 
• Punkte werden mit der Taste „Z" ge- 
setzt. Mit der SPACE-Taste ist ein Lö- 
schen der Punkte möglich. Um die Da- 
tas auszudrucken, drücken Sie nur auf 
die F 8 -Taste. Das Programm ist sehr 



kurz gehalten, damit man nicht zuviel 
abtippen muß! 

Wollen Sie auf einfache Art eine Spri- 
tehilfe auf Ihrem Commodore 64 ver- 
wirklichen, tippen Sie dieses Pro- 
gramm ein, und Sie haben die Mög- 
lichkeit, hervorragende Sprites zu er- 
stellen. 



PRINT"USB9 WOLLEN SIE UEBERHAUPT EIN SPRITE DEFINIEREN" 

1 GETF*sIFF*<> M N ,, ANDF*<> M J ,, THENI 

2 IFF*«"N ,, THENPÖKE2,0zG0T0120 

4 INPUT"C6B SPRITEFARBE" 5 Sa INPUt"fi|| HINTERGRUNDFARBE" :H3paKE5328ö,HsP0KE532Bl,H 

5 V«53248 s POKEV , 250 : POKEV+ 1 , 1 OO : POKEV+2 1,3s POKEV+23 ., 2 s POKEV+29 ,2 

6 P0KE2040 ,13: POKE2Q4 1,13s POKEV+2! , 250 s POKEV+3 , 1 30 s POKEV+39 , B s POKEV+40 f S 

7 P0KE646,Ss PRINTE FARBE OK ?" 

8 GETF*S IFF*<>"N ,, ANDF*<> H a n THEN8 

9 PRINT"Li ,, sIFF** ,, N ,, THENRUN 

10 F0RA=49165T049297sREADBs POKEA, Bs NE XT 

11 FaRA^55337T056201s POKEA, SsNEXT 

20 FORA= 1024T0 1049s POKEA , 160* POKEA+54272 , Sa POKEA+880 ,160: F0K£A+55152,Ss NEXT 
25 FORA= 1 064T0 1 864STEP40 s POKEA , 1 60 s POKEA+54272 , S s PÖKEA+25 ,160s PQKEA+54297 , S 
30 NEXTs A*=l s B«l s C* 1024s D=-12Ss J=40s K=-128 

49 ÖETA*sIFA*= ,,rt THEN65 

50 X~ASC<A$> 

51 . IFX*29THENA=*A+1 s D**:s IFPEEK(E) M2BTHENP0KEE , PEEK <E> +K 

52 IFX=157THENA-A-1 s D«K: IFPEEK <E) >128THENP0KEE , PEEK <E> +K 

53 IFX=17THENB«B4-lsD=Ks IFPEEK <E)>128THENP0KEE, PEEK <E)+K 

54 IFX=145THENB=B-1 s D«Ks IFPEEK (E) >128THENP0KEE,PEEK (E> +K 
5.5 IFX«t40THENPOKEE,32sGOT099 

56 IFX=32THENP0KEE,32sD«KsA«A+l 

57 iFX=90THENP0KEE,81sD«KsA~A+i 

58 I FX= 1 47THENF0RM- 1 T021 s FORN= 1 T024 s POKEC+N+M* 3 -, 32 s NEXTN , M s D*K 

59 IFA>24THENA=1 

60 IFA<lTHENA=t24 

61 IFB<1THENB=2I 

62 IFB>21THENB^1 

65 D=~D:£==G+A+B*J:FOKEE,PEEK<E)+D 
70 SYS49197;G0T049 

84 DATA162, 8, 160,0, 132, 251, 24, 38, 251, 177, 253, 201, 32, 240, 5, 169, 1,76,35, 192 

85 DATA169, 0,24, 101, 251, 133,251, 200, 202, 208, 231, 96, 169, 33, 133, 253, 169,4 

86 DATA133 , 254 , 169 , 255 , 133 , 252 , 24 , 165 ,253 , 105 , 8 , 133 ,253 , 1 65 , 254 , 1 05 , O , 133 

87 DATA254, 230,252,32, 13, 192, 166, 252, 157, 64, 3,24, 165,253, 105, 8, 133, 253, 165 

88 DATA254, 105,0, 133,254,230,252,32,13, 192,166,252,157,64,3,24,165,253,105 

89 DATA8, 133,253, 165,254, 105,0,133,254,230,252,32,13,192,166,252, 157,64 

90 DATA3,24, 165, 253, 105,16,133, 253, 165, 254, 105,0,133, 254, 165,252, 201, 62 

91 DATA2ÖS, 168,96 

99 I NPUT "OSZE I LENNUMMER s " ; Z s X=0 s PR I NT tt Li" ; s I FZ< 1 30THEN99 * 

104 PRINTZ "DATA" 5 s A*=STR* (PEEK C832+X > ) s X-X+l 

1 06 B*=STR* < PEEK ( 832+X ) ) s A$=A*+ " , " +R I GMT* (B* , LEN ( B* ) - 1 ) s I FLEN C A*> >64THEN1 14 

108 X«X4-lsIFX<63THEN106 

1 10 PRINTA*: PQKE631 , 19s P0KE632, 13: P0KE633 , 13s PQKE634, 13s PQKE635, 13sP0K£636*82 

112 P0KE637,855P0KE638,78sP0KE639,58sPQKE64O, 13SP0KE19B, lOsEND 

1 1 4 X^X+ 1 s Z«Z+ 1 s PR I NTA* s A*= B " s GOTO 1 04 
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I20 PRINT"|ä"PEEK(2)sPRINT"Gri20"sPOKE631,195PCn<EÄ32,13sPQKE633,i3sPOKE198,3sPOKE 

2,PEEK<2)+1 

130 REM **##*#*#*#*##*##**#** 190 REM *'*' UND- ** 

140 REM ********************* > 200 REM ** ** 

150 REM ** COPYRIGHT BY ** 210 REM ** MICHAEL ßRAESER ** 

160 REM ** ** 220 REM ** ** 

170 REM ** GERNOT HELFER ICH** 230 REM ********************* 

180 REM •** ** 240 REM ********************* 



Grand Prix 



Steigen Sie in einen Rennwagen und 
fahren Sie mit um den Großen Preis 
von „Le Mans" 



Dieses Spiel handelt, wie der Name 
schon vermuten läßt, um eine Art Au- 
torennen. Ein oder zwei Spieler kön- 
nen daran teilnehmen. Ziel des Spiels 
ist es, die schnellste Runde zu drehen, 
die dann auch in einer Bestenliste auf 
Diskette verewigt wird. 
Nach dem Starten des Programms er- 
scheint das Titelbild. Dann wird die 
Bestenliste von der Diskette gelesen. 
Wenn der Rahmen des Bildes zu flim- 
mern beginnt, wird das Programm 
durch Druck auf den Feuerknopf (Joy- 
stick Port 2) fortgesetzt. 

Nun zu den Besonderheiten des 
menügesteuerten Programms: 

Auf dem Hauptmenü können folgende 

Parameter eingestellt werden: 
Anzahl der Fahrer (1 oder 2) 
Strecke (12 verschiedene Strecken} 
Anzahl der Runden (1 bis 20} 
Rennauto (7 verschiedene Autos) 

Weiter bietet das Hauptmenü folgende 

Möglichk eiten : 

Start des Rennens 

Sprung in das Menü 2 (Auswahl der 

Rennautos} 

Sprung in das Menü 3 (Auswahl der 

Rennstrecke) 

Abspeichern der Bestenliste (wenn 

man das Programm beendet} 

Ansehen der Bestenliste 

Menü 2: 

Hier haben Sie nun alle 7 Rennwagen 
mit ihren technischen Daten aufgeli- 
stet (Höchstgeschwindigkeit in km/h 




und Beschleunigungskraft). Mit dem 
Joystick können Sie nun Ihr Auto 
wählen, welches auch im Hauptmenü 
vermerkt wird. Zur Kontrolle dreht 
sich das gewählte Auto um 270 Grad 
nach rechts.- Nach wiederholtem 
Drücken des Feüerknopfes (Port 2) ge- 
langt man wieder ins Hauptmenü. 

Menü 3: 

In Menü 3 sehen Sie eine Übersicht 
aller 1 2 Rennstrecken. Auch hier wird 
wieder mit einem Cursor, der mit Joy- 
stick (Port 2) bewegt wird, die ge- 
wünschte Strecke . gewählt (durch 
Druck auf den Feuerknopf). Hat man 
seine Wahl getroffen, erscheint die 
Strecke in Originalgröße nochmals auf 
dem Bildschirm. Nun drückt man wie- 
der den Feuerknopf, um ins Haupt- 
menü zurückzugelangen. 

Bestenliste: 

Zuerst erscheint die Liste der besten 
10 Rennfahrer auf der im Moment ak- 
tuellen Rennstrecke. Das heißt, für alle 
1 2 Rennstrecken gibt es eine Liste der 
besten 1 Fahrer. Durch Bewegen des 
Joysticks (Port 2) nach links bzw. 
rechts kann eine Strecke vor- oder 
zurückgehen, durch Druck auf den 
Feuerknopf kommt man wieder ins 
Hauptmenü zurück. 



Start des Rennens: 

Nach Erscheinen der Rennstrecke be- 
ginnt der Rahmen zu flimmern, was 
heißt, daß der Druck des Feuerknopfes 
zum Rennstart erwartet wird. Hat man 
ihn gedrückt, beginnt das Rennen. 
Rechts unten am Bildschirm sind Uhr 
und die Anzahl der noch zu fahrenden 
Runden eingeblendet. Nach Beendi- 
gung des Rennens wird die Ergebnis - 
tafel angezeigt und die Namen der 
Spieler müssen eingegeben werden. 
Dann erscheint die Bestenliste der ge- 
fahrenen Strecke. 
Eingabeanweisungen: 



, Parti" abtippen und ab- 
,Part 2" abtippen und ab- 
,Part 3" abtippen und ab- 



1. Listing 
speichern. 

2. Listing 
speichern. 

3. Listing 
speichern, 

4. Listing „Part 1" laden und starten. 
Dieses Programm erzeugt nun die 
Sprites und die neuen Zeichen. 

5. Nachdem das Programm „Part 1" die 
Meldung „LOAD NOW PART 2" aus- 
gegeben hat, laden Sie nun „Part 2" 
und starten es ebenfalls. Jetzt wird der 
Maschinen- Code erzeugt, die Sprites 
und der Maschinencode an die richti- 
ge Stelle kopiert und der sequentielle 
File „LIST" auf Diskette geschrieben. 
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Es ist daher darauf zu achten, daß sich 
die für das Programm vorgesehene 
Diskette im Laufwerk befindet. Bei 
diesen Vorgängen löscht sich das Pro- 
gramm selbsttätig, schreibt dann ein 
kleines Startprogramm an den Basic- 
Start (2048) und verschiebt den Basic- 
Start auf 10240 (Poke 44, 40). 
6. Auf dem Bildschirm erscheint nun 
die Meldung „LOAD NOW PART 3". 
Nun laden Sie das Programm „Part 3" 



10 
ll 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 



R EM************************ *** *** ** 



REM* 
REM* 
REM* 
REM* 



von der Diskette (achten Sie darauf, 
daß der Basic-Start auf 10240 steht, da 
sonst die Sprites usw. wieder gelöscht 
werden). 

7. Bevor Sie das Programm „Part 3" 
starten, geben Sie folgendes ein: 
Poke 44, 8 

Save „GRAND PRIX", 8 

8. Wenn nun „GRAND PRIX" fertig 
abgespeichert ist, können Sie das Pro- 
gramm starten (der Basic -Speicher 

verschiebt sich 
von selbst). 
9. Die oben an- 
geführten Vor- 
gänge sind na- 
türlich nur 
beim ersten Er- 
stellen des Pro- 



* 
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gramms „GRAND PRIX" notwendig. 
Soll das Programm später wieder ein- 
mal geladen werden, so brauchen Sie 
dann nur das Programm „GRAND 
PRIX" laden und starten. 
10. Joysticks einstecken und los 
geht's! 

Achtung: Das abgedruckte Listing 
ist nur mit Diskettenstation funk- 
tionsfähig! Um es auch für Kasset- 
ten verwenden zu können, muß auf 
die High-Score-Liste verzichtet 
werden: Dazu muß folgende Ände- 
rung vorgenommen werden: 
Listing Part 2: Zeile 73 und 74 
durch REM ersetzen, 
Listing Part 3: Zeile 119 durch 
REM ersetzen. 



GRAND ~ PRIX PART 1 

(01985 BY MR-SOFT 

RONALD MAYER 

A-4Ö62 THENING 24/AUSTRIA 
REM*** *********** * **************** * 
REM******************* 
REM* SPRITES * 

REM******************* 

DATA-iB, 1,192,, 1,195, .128,5, 219, 128,6,189, 64,7, 231 ,224,6,189,64*5,219,128,1 
DATA195, 128, 1,192, -19, 7, ,3, 135,, 1,178, 192, 1,255, 192, 6, 173,, 7, 251, 128,7,107,, 
DATA224,,,224 
DATA128,3,232 
DATA 175, 128,3 



24 DAT AI 28, ,125, 



DATA253 
DATA16,,,56, , 
DATA,, 124, -13 
DATA236,,,158 
DATA128,,13,, 
DAT AI 28, 3, 239 
DATA128*5,255 



,,128, -16, 12,,, 31, 64,, 11, 128, 1,62, 128, 3, 183, 128,3, 173, 192, 4, 253 
,3, 184,, 1,120,, 1,48, -16, 27, , ,59, 128, ,22, 128, ,63,128, 1 , 117, 192,3 
252, , 1 ,112, ,3,252, , 1 ,220, , ,216,-13, 10, , *54, , , 125, , , 110, 128, ,59 
3, 108, ,3, 156, ,7,232, ,2,254, , 1 ,222, , ,236, , ,32,-10,8, , ,28, , , 106, , 
8,, 223,,, 59,,, 108,,, 108,, 1,184,, 3, 215,, 3, 254,,, 110,,, 224,, 1,240, -10 
214, , ,254, , ,214, , ,56, , , 108, , , 108, , ,56, , 1 ,215, , 1 ,255,*, 1 ,215, , ,56 
96,,, 104,, 1,188,, 1,236,, 1,176,,, 60,,, 104,,, 127,,, 47,,, 251, 128, 
,,28, -12, 1,16,,, 248,, 1,184,, 1,224,, 3, 120,, 3,223,, 1,107, 128,, 127 
62,,, 119, 128,, 54,, ,8,-13,32, ,1 ,240, ,3, 112, ,3,208, ,,251,, 3,91 
128, 1 , 126, , ,47, 128, ,27, 128, ,63, , ,26,-16, 192, , 1 ,96, ,6, 195, ,3, 187 
i28, 3, 107,, 3, 246, 192, 1,183, 128,, 15, 128,, 29, ,,30,, ,4,-15,1, ,,1 



DATA196,, 2, 199,, 5, 183,, 15, 251,, 5, 206, 64,3, 123, 192, 3, 183,192, 1,142, 192,, 14, 64 



DATA, 6, -19, 7, 
DATA7,-16,2,, 
DATA 128, 1,192 
DATA, 3,160,, 5 



DATA1 09, 128,1 



PATA1,215,128 
DATA56,,1,215 
DATA-13,112,, 



3, 135, ,3, 183,64,5, 122, 192, 15,207, 192,5, 122, 192,3, 183,64,3, 135, , 
14, , , 14, 128, 1 , 173, 192,3, 191 , 192, 1 , 106, 192,7,255, ,6, 155, , 1 , 195 
-16, 25,,, 61,,, 59, 128,, 47, 128,3, 126, 64, 7, 107,128, 3, 219, 128, 2, 249 
240, , ,96,-16,54, , , 119, , , 127, 128, ,29, , , 127, 128,3,235, 128,7,93, 



DATA3, 248, ,2, 208,, 3, 184,, 1,176, -13, 8,,, 110,,, 247,,, 254, 128,, 47, 192,, 115, 128, 



124, ,3, 184, ,2,236, , 1 , 124, , ,216, , , 160,-13,31 , , , 14, , ,236, , ,255, 12 



,59, , , 108, , , 108, , 1 , 184, , 1 ,246, ,3, 126, , , 172, , , 1 12, , ,32,^13, 124, , 
, 1 ,255, , 1 ,215, , ,56, , , 108, , , 108, , ,56, , ,214, , ,254, ,,214, , ,56, , , 16 
242,,, 110,, 3, 190,, 1,232,, 1,252,,, 44,,, 120,,, 27,,, 111,,, 123,,, 44 

DATA,, 12, -13,32,,, 216,, 3, 220, ^,248,, 1,96,, 3, 252,, 3, 173,, 1,247, 128,, 61, 128,, 15 

DATA,, 59,, ,62,,, 17, -16, 176,, 1,248,, 3, 176, ,3,232,, ,253, ,3,239, 128,3, 181 , 128, 1 

DATA190,,, 23, 128,, 29, 128,, 31,,, 8, -13,64,,, 240,, 1,1 12,, 3, 224,, 3, 219,, 6, 223, 128 
3, 255, 64, 3, 187, 128, 1,134, 192,, 13,,, 6, -16 ,128,,, 224,, 2, 224, ,7 

DATA107,, 7,251, 128, 6, 173,, 1,255, 192, 1,178, 192, 3, 135,,, 7, 999 

POKE56 , 40: CLR s AD=32 : S=0 : P0KE5328 1,9s PQKE53280 , 9 : PR INT " LÄMÖW CREAT I NG SPR I TES" 

FORI -10304T01 1840: PQKEI ,0sNEXT 

READAsS=S+A: IFA<0THENAD=AD+1 : X=8192+AD*64+ABS <A) : B0T049 

IFA0999THEN53 

I FS-5 1 697THENPR INT "SPR I TES CREATED " : G0T054 

PRIW'BDATA ERROR IN SPRITES ":END 

POKEX , A : X-X+ 1 : 60T049 

REM******************* 

REM* CHARACTERS * 

REM******************* 

DATABO , 80 , 80 , 80 , 1 60 , 1 60 , 1 60 , 1 60 

DATA5,5,5,5,10,10,10,10 

DAT A255, 255, 255, 255, 165, 165, 165,0 
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60 DATAO, 165, 165, 165,255,255,255,255 

6 1 DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

62 DATA255, 255, 255, 255, 245, 245, 165, 165 

63 DATA255, 255, 255, 255, 254, 254, 245, 245 

64 DATA213,213, 148, 148, 160, 160,128, 128 

65 DATA160, 160,0,0,0,0,0,0 

66 DATA245 , 245 , 232 , 232 , 232 f 232 , 1 60 , 1 60 

67 DATAO, 1,1, 1,10, 10,10, 10 

68 DAT A255, 255, 255, 255, 95, 95, 90, 90 

69 DATA10, 10,0,0,0,0,0,0 

70 DATA87, 87,22, 22, 10,10,2,2 

71 DATA255,255,255,255,191,191,95,95 

72 DATA95,95,43,43,43,43,10,10 
.73 DATA0,64,64,64, 160, 160,160, 160 

74 DATA5,5,5,5,2,2,2,0 * 

75 DATA160, 160,232,232,232,232,245,245 

76 DATA245 , 245 , 254 , 254 , 255 , 255 ,255 , 255 

77 DATA12B, 128, 160, 160, 148, 148,213,213 

78 DATAO, 0,0,0,0,0,160, 160 

79 DATA 165, 165,245, 245,255,255,255,255 

80 DATA80, SO, 80, 80, 128, 128, 128,0 

81 DATA10, 10,43,43,43,43,95,95 

82 DATAÖ,Ö,0,0,0,ü,lO,10 

83 DATA2,2,10,10,22,22,S7,87 

84 DATA95,9S,191,191,255,255,25S,255 

85 DAT A90, 90, 95, 95, 255, 255, 255, 255 

86 DATA245, 245, 245,245, 245,245,245, 245, 253, 253, 117, 117, 85, 85, 85, 85 

87 DATAO, 32, 96, 255, 255, 96, 32, 0,0, 0,0, 0,0, 0,0,0 

88 DATA117,117,li7, 117, 117,117,117,117,0, 0,0, 0,0, 0,0,0 

89 DATA85, 85, 85, 85, 253, 253, 253, 85 

90 DATA255 , 255 , 127 , 127 ,1 27 , 1 27 , 127 , 1 27 ,245 , 245 , 247 , 247 ,245 , 245 , 245 , 245 

91 DATA221, 221, 255, 255, 253,253, 117, 117, 85,85, 117, 117,253, 253, 117, 117 

92 DAT A255, 255, 245, 247, 245, 255, 245, 245, 255, 255, 11 7, 247, 119, 119, 117,117 

93 DATA255, 255, 117, 119, 117, 117, 119, 11 9, 255, 255, 117, 253, 253, 253, 253, 253 

94 DAT A255, 255, 127, 255, 255, 255, 255, 255 

95 PRINT H NOW CREATING CHAR ACTERS" 

96 S=OsFQRI-6TQ44*8-l-7sREADAsS=S+As i PaKE8192+I,A:NEXT 

97 IFS=49733THENPRINT"CHARACTERS CREATEP M sPRINT"g^ES-OAD NQW PART2 M :EN0 

98 PRINT M BDATA ERROR IN CHARACTERS" : END 

10 REM*###***#*******»#**#**#****###*# 

11 REM* GRAND - PRIX PART 2 * 

12 REM* CO 1985 BY MR-SOFT * 

13 REM* RONALD MAYER* 

14 REM* A-4062 THENINB 24/AUSTRIA * 

15 REM******************************** 
16. REM******************* 

17 REM* MACHINE-CODE * 

18 REM******************* 

19 DATA! 62 , , 142 , 1 4 , 220 f 162 , 51 , 134 , 1 , 169 , O , 133 , 252 , 169 , 33, 1 33 , 253 , 1 69 , 

20 DATA133, 254, 169,209, 133, 255, 162, 0,160,104, 177, 254, 145,252, 200, 208, 249 

21 DATA232 , 224 , 7,240 , 7 , 230 , 253 ,230 , 255 , 76 ,29 , 15 , 162, 55 , 134 , 1 , 162 , 1 , 142, 14 

22 DATA220, 169, 0,133, 252, 169, 160, 133, 253, 162, 0,160,0, 177, 252, 145, 2S2j200 

23 DATA208 , 249 , 232 ,224 , 32 ,240 , 5 , 230 , 253 , 76 , 69 , 15 , 19B , 1 , 162 , 98 , 142 ,28 , l 60 

24 DATA162, 15, 142, 29, 160,96,32, 158, 183,138, 72,32, 253, 174^32, 158, 183, 104 

25 DATA168, 24, 32, 240,255, 32, 253,174, 76, 164,170,169,0,133,252,169,8,133,253 

26 DATA1 69, 0,133,254, 169, 40, 133,255, 162,8, 160,64, 177,254, 145,252,200,208 

27 D ATA249 , 232 , 224 , 32 , 240 , 7 , 230 , 253 ,230 , 255 , 76 , 1 42 , 47 , 76 , O , 15 

28 DATA2, 40, 35, 200, 190, 6,6,24, 0,0, 0,50, 168, 163, 222, 196,0, 0,40, 47, 134, 253 

29 DATA169, 99, 24, 101, 253, 133, 254, 169, 7, 133, 255, 160, 0,177, 254, 201, 185,240 

30 DATA13, 160, 4, 177, 254, 201, 185,240,6, 170, 232, 138, 145, 254, 96, 192, 0,240, 251 

31 DATA169, 176, 145, 254, 136, 76, 207, 15, 222, 169, 15, 189, 182, 7, 201, 176,240, 4 

32 DATA222, 182, 7, 96, 189, 181, 7, 201,176, 240, 8, 222, 181, 7, 169, 185, 157, 182, 7 
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33 DATA96 , 189 , O,220 ,41*4, 208 , IS » 189 , 248 , 7 , 201 ■, 56 , 208 , 5 , 169 , 32, 157 ,248 , 7 

34 DAT A254, 248,7, 1B9, 0,220, 4 1,8, 208, 15, 189, 248, 7, 201, 33, 208,5,169, 57, 157 

35 DATA24B, 7, 222, 248, 7, 96, 3, 3, 3, 2, 2, 1,0,255, 254, 254, 253, 253,253, 253, 253 

36 DATA254, 254, 255, 0,1, 2, 2, 3, 3, 3, 3,3, 2, 2, 1,0, 1,7, 2, 7, 185, 248, 7, 56, 233,1 

37 DATA41, 223, 170, 134, 252, 152, 10, 168, 185,1,208,24,125,56,16,153,1,208,165 

38 DATA252, 170, 185,0,208,24, 125,50, 16,72, 176,24, 189,50, 16, 105,240, 176,5 

39 DATA104, 153, 0,208, 96, 185, 81, 16, 77, 16, 208,141, 16, 208,76, 129, 16, 24, 189 

40 DATA50, 16, 105, 240, 144, 236, 76, 129, 16, 173,31, 208, 73, 3, 41, 1,208, 13, 162,0 

41 DATA142, 176, 15, 32, 184, 15, 162, 0,32, 184, 15, 173,31, 208, 73, 3, 41, 2, 208, 15 

42 DATA169,0,141,177,15, 162,6,32,184, 15,162,6,32,184,15,173,30,208,201,3 

43 DATA20B, 15,238,82, 16,238,84, 16, 162,0,32,34, 16,232,32,34, 16,96, 189, 176 

44 DATA15, 224, 1,208, 2, 162, 7, 134, 253, 24, 101, 253, 10, 144, 9, 157, 0,212, 169, 4 

45 DATA157, 1,212, 96, 157, 0,212, 169, 3, 157, 1,212, 96, 162, 8, 169, 0,202, 157, 176 

46 DATA15, 208, 250, 173, 169, 15, 201, 0,240,49,238, 178, 15,208, 5, 162,0,32,184 

47 DATA15,238, 182, 15, 173, 176 , 15,73,255,205, 182, 15,208, 15, 169,0, 141 , 182, 15 

48 DATAI60,Ö, 32,85, 16, 162, 0,32, 5» 16, 162, 0,32, 139, 17, 162, 0,32, 226, 16, 96, 169 

49 DATA255, 141, 1,20S, 96, 173, 174, 15, 201,0,240, 49, 238, 179, 15, 208,5, 162, 6,32 

50 DATA184, 15, 238, 183, 15, 173, 177, 15, 73, 255, 205, 183, 15,208, 15, 169, 0,141, 183 

51 DATA15, 160, 1,32, 85, 16, 162, 1,32, 5, 16, 162, 1,32, 139, 17, 162, 1,32, 226, 16, 96 

52 DATA169, 255, 141, 3, 208, 96, 254, 170, 15, 189, 170, 15, 221, 165, 15, 208, 43, 169 

53 PATAO, 157, 170, 15, 189, 0,220,41, 1,208, 14, 189, 165, 15, 189, 167, 15,221 , 176 

54 DATA15, 240,3, 254, 176, 15, 189, 0,220, 41, 2, 208, 10, 189, 176, 15, 201,0,240, 3 

55 DATA222, 176,15,134,253,189,180,15,201,1,240,22,232,138,24,105,8,133,2 

56 DATA173,30, 208,73, 255, 37, 2, 208, 5, 166, 253, 254, 180,15, 96, 232, 138, 24, 105 

57 DAT A4, 133,2, 173,30,208,73,255,37,2,208,14, 166,253,222,180,15,224,0,240 

58 DATA2, 162, 5,32, 231, 15,96, 32, 5, 17, 162, 25, 169, 0,202,157, 0,212, 208, 250, 169 

59 DATA15, 141 »24, 212, 162, 0,32, 64, 18, 173, 164, 15,201, 2, 208,5,162,7, 32, 64, 18 

60 DATA173, 169, 15, 24, 109, 174, 15, 201,0,240,18, 32, 15, 17, 32, 77, 17, 173.30,208 
6t DATA173, 31, 208, 32, 157, 16,76, 34, 18,96, 169, 240, 157, 6, 212, 169, 150, 141, 2 

62 DATA212, 169, 200, 141, 9, 212, 169, 3, 157, 1,212, 169, 65, 157, 4, 212, 96 

63 DATA173, 0,220, 201, 11 1,240, 6, 238, 32, 208, 76, 90, 18, 96,-1 

64 P0KE56,32sP0KE53281 ,9sP0KE53280,9 

65 X= 1 5*256+81 92 :S=0:PRI NT "LÖÜ3W CREATING MACH1NE-C0DE" 

66 READÄsS«S-*-A: IFAO-1THEN69 

67 IFSOl 0130 1THENFR INT "1DATA ERROR IN MACHINE~C0DE"5END 

68 PR INT" MACH INE-CODE CREATED"sGOT07ö 

69 P0KEX,AsX=X+l:SQTD66 

70 REM******************* 

71 REM* INITIALIZE * 

72 REM******************* 

73 0PEN1 , 8 , 2 , " @ps L IST , S , W " 

74 F0RI=0Tail9s PRINT#i , "-- ^——0090000": NEXTs CL0SE1 

75 PRINT rt fcJ8SYS12154sNEW" 

76 PRINT M ESES1P0KE44 ,40s PÜKE256*40 , 0: P0KE56 , 160s CLRs RUN" 

77 PRINT"PÖKE44,40:PQKE256*40,0:POKE56,160:PRINT M CHR*(34) ,, US-OAD NOW PART3** 

78 PR I NT "H" CHR* ( 34 ) M s NEW " 

79 P0KE631 , 1 9s FORI -ÖT035 P0KE632+ 1 , 13 s NEXT s POKE 198 , 5s STOP 

lOÖ REM***********************#*#****** 

101 REM* GRAND - PRIX PART 3 * 

102 REM* CO 1985 BY MR-SOFT * 

103 REM* RON ALD MAYER * 

104 REM* A-4062 THENING 24/AUSTRIA * 

1 05 REM******************************** 

106 REM******************* 

107 REM* INITIALIZE * - 

108 REM******************* 

109 SYS3S40sV=53248sSI=54272sDIMHI$(120>,TR(ll,36),S*(25),PX(ll),PY(il) 

110 »4:="— n.M^-, cr«r-r.*-,, ■■* *c% ... ,. 

111 FaRI=lT05sREADF(I)sNEXT5DATA2,8,7,5,14 

112 G0SUB312 

113 C<l>-lsC<2)=l5LA-5sPL=2sT=0 

114 p*<ö)="iHB£aigc"sP*a>="ssB 8aB c" 
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115 Q*CQ)s r, fciS ™a ''5Q*<1)- H " 

1 1 7 TR** " 000 1 0203040506070809 1 Ö 1 i * 

iis v$- n tragk ,, sv*cQ>- ,, iaa M +v*sv*(i>- ,, aa M +v;* 

119 üPENl f 8,2,"LlBT,8,R ,, sFDRI=OT0119sINPUT#l,HI*CI)2NEXt2CLDSEl 

1 20 POKEV+24 , 25 s POKEV+34 ,1s POKEV+33 , 10 a PQKE*>+37 , 1 s PÖKEV+38 ,10 

121 FORI «0TÖ62:PaKEl 01 76+1, GsNEXT 

122 F0RI=lT055STEP6s J=75-Js POKE 10 177+1 ,90+JsPOKE 10 180+1 ,90+Js NEXT 

1 23 GÖ5UB363 a 5YS4698 a POKEV+22 ,21 6 a GOTO 191 

124 Rlpi************* ****** 

125 REM* SCREEN-TRACK ."*.. 

126 REM******************* ■ 

127 PÖKEV+21 ,0a P0KEV+33 t 12a P0KEV+32,S SPRINT "JJIH" 5 s X=Ös Y=Ös FQRI«ÖTÖ36! FORJ=OT04 
12B LETX,Y+J»S*(TP<TR<T,I} ,J> 3 ssNEXTJ 

129 X=X+5s IFX?=40THENX=0a Y==Y+5 

130 NEXTI 

131 F0RX=20T023sL£T25,I, ,, iaS "jsNEXT 
132';LET25,24," ; ■ "i 

1 33 PÖKE56295 , 5 s P0KE2023 , 1 60 s RETÜRN 

134 REM******************* 

135 REM* SCREEN-MAP * ' : 

136 REM******************* 

137 P0KEV+17,l:PRINT"Li"L*aP0KEV+33,3:P0KEV+32,3 

138 LET0,l, M B ,e N$!LET13,l, H !aSBELECT TRACK" 

139 F0RI=2T016STEP7sLET0, I ,L*sLETO, 1+1 , "ßTN*"!! " 

140 LET2,I + 1,"1^TTRACK TRACK TRACK TRACK" 

141 F0RJ=2T06:LET0,I+J, M Ba M N*; a IFJ<6THENPRINT"11 " 

142 NEXTJ,IsP0KEV+17,27 

143 LET0,23,L$; :LET0,24, ,, g"N$; :LET5,24,' < S^USE JOYSTICK TQ SELECT ' TRACk ,, | 

144 X=0aY=0aXl=2a Yl=4sF0Rl=0TOllsFORJ=OT036 

145 LETX+Xl,Y+Yl, , 'ia3"TM$<TR<I,J) ) ; 

146 X=X+lsIFX=8THENX^0:Y^Y-t-l 

147 IFY-4ANDX=5THENLETX1+6,Y1-1,"M"MID$<TR$,I*2+1,2> : X=0: Y=Oi Xl-Xl+9 

148 IFXl=3BTHENXl=2aYl=Yl+7 

149 NEXTJ,I 

150 X=2: Y~3aZ=OaT=0 

151 W*=RIGHT*("OQ ,, +MID*(STR$(T> ,2) ,2) 

152 J^PEEK (56320) a Z=i-Za LETX, Y,V*(Z) +W* 

153 IFJ=111THENG0SUB124:SYS4698 s RETURN 

154 IFJ=t26ANDY>3THENG0SUB159aY*Y-7:T~T-4 

155 IF<?=125ANDY<i7THENG0SUB159sY=Y+7:T=T+4 

156 IFJ=123ANDX>2THENG0SUB159s X=X-9aT=T-l 

157 IFJ=119ANDX<29THENG0SUB159:X=X+9sT=T+i 

158 G0T0151 

159 LETX , Y , V/S ( 1 > +W*s RETÜRN 

160 REM******************* 

161 REM* CORR LIST * 

162 REM******************* 

163 X=T*10sFaRI=lT0PL 

164 F0RJ-XT0X+9:IFRI6HT*(T$<I) ,5) >RIGHT*(HI*(J) ,5)THENNEXTJ 

165 IFJ=X+10THENNEXTIs RETURN v 

166 F0RK=X+9T0J+1STEP-1 

167 HI*(K)^HI*<K-l)sNEXTK 

168 HI$(J)«T*(I)sNEXTIsRETURN 

169 REM******************* 

170 REM* PLAY TRACK * 

171 REM******************* 

1 72 P0KEV+ 17,1: POKEV+32 , 5 

173 G0SUB124:G0SUB1B0 

1 74 P0KEV+ 16,0s POKEV+23 ,12s P0KEV+2B , 4 a P0KE2O42 , 1 59s P0KE2043 , 159s POKEV+27 , 12 

1 75 POKEV+4 ,115s POKEV+5 , 207 : POKEV+6 , 24+PX < T > *40 s P0KEV+7 , PY ( T ) *40+ 10 

176 P0KEV+42,12sP0KEV+29,0sP0KEV+l,2i45P0KEV,130aP0KE2040,45 
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1 77 POKEV+2 , 1 30 5 POKE V+3 , 225 * P0KE204 1 , 45 

178 P0KEV+39,C0 CC < i ) > s PQKEV+40 ,C0 (C C2) ) : PDKEV+21 , < 1 . 5*PL) +12 

1 79 POKEV+ 1 7 , 27 : S YS4698 5 POKEV+32 , 5 s RETURN 

1 80 REM******************* 

181 REH* PLAYERS * 

182 REM******************* 

183 LET26,20,"ia3 IUP 2UP "5 

184 LET26,21 , " 00000 OOÖOO "§ 

185 L£T2&,22, ,, fc. LAP "5 

186 LET26,23," 00 00 *♦ 

1 87 LA$=R ISHT* ( ■■* 00 " +M I D$ ( STR* ( LA ) , 2 > , 2 > 

188 LET29,23, M fii"LA* 

189 IFPL^2tMENLET34,23, , '[g ,, LA* 

190 RETURN. 

191 REM******************* .*'■■ 

192 REM* MENÜ * 

193 REM******************* 

1 94 POkEV+17 ,1 : PÖKEV+32 , 9 s PQKEV+33 * 9 5 POKEV+2 1,0 

195 PRIISlT"Li"L* 

196 LETO, l,"ffi u N* 

197 .t£T44»i- f , ?aOBR AND PRIX" 

198 FÖRJ=1T020STEP19 

199 F0RIä4T016STEP3s LETJ , I, M*s LETJ+17, 1+2, "*» " 

200 FQRk=*lTG2s P0KE646 , 2+K*l . 5s IF J=20THENP0KE646 , 7-K*l - 6 

201 LEt^,I+K,"|S - Hil»»sNEXTK r t,a 

202 LET37 » 18, "■ " s LET18 , 18 , "■ " 

203 LET4 , 5 j " ÖkDR 1 VERS " s 

204 LET4*a*"TRACk"s 

205 LET4,il, rt LAPS"| 

206 LET4\14,"CAR 1 H ; " 

207 LET4,17,' 'GAR 2**5 

208 LET23 , 5 , " fiSKTART M 5 

209 LET23,8,"SAVE"5 

210 F0RI«liT017STEP3sLET23,I, ,, SEE ,, 5sNEXT 

211 LET23 # 6»»kRACE**; 

212 TJEt23 , 9 \ " TOP-L IST '■" 5 

213 LEt23,i2» rt CARS ,, | 

214 LET23,15, M TRACKS"5 

215 LET23, 18," TOP-LIST" 5 

216 L£TO f 21,L* 

2 17 LET38 , 22 , " WW' * 

218 LETÖ,22,"iail USE JOYSTICK TQ SELECT OPTIONS " f ; 

219 X«Ö!Y«5:Z«0 

220 IFT>UTHENTr=0 
.22l'LET3*6» w liaB ,, PL5 . • 

222 LET4 \ 9 , M \&B a R 1 6HT# i " O V +M ID* < STR* C T > , 2 > , 2 ) ; 

223 IFLA*3iTHENLA^l 

224 LET4, 12,"|jaB"RI5Ht*( ,, ö ,, +MID*<STR*<LA> ,2) ,2) ; 

225 FQRI=lTQ2a IFC < I > >7THENC < I ) =1 

226 NEXTs LET4 , 15 j C$ (C < 1 ) > 5 
227-'LET4,:18,C*<C.C2y> f.-'. 
228\'p : aiCEV+17,:27 "- ■ 

229 JNPßEK < 56320 ) s Z= 1 -2 : LETX* i 9+2 , Y , P* C t > 

230 IFa«127THEN229 
■23 1 I F J~ 123ANDX^ 1 THENLETX* 1 9+2 , Y , Q* .'( X ) : X^=0 

IFJ~119ANDX«0THENLETX*19+2,Y,Q*CX):X-1 
I F J* i 26ANDY >5THENLETX* 1 9+2 , Y , ©* C X > : Y=Y-3 

234 I FJ« 1 2SANDY< 1 7THENLETX* % 9+2 , Y , Q* ( X ) '5 Y=Y+3 

235 XFJ<>liiTHEN229 

236 A=X+Y . 

237 IFA=i8THENGaSUB293sGaT0i91 

238 I F A« 1 1 THENLA=LA+ 1 ? GQTQ223 
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C-64 Akustik 
und Graphik 

von John J. Anderson 

Die Umständlichkeit des C-64 
beim Programmieren von Gra- 
fiken und Toneffekten ist ja hin- 
reichend bekannt. Dieser Titel 
schafft endlich Abhilfe. Hier wer- 
den Ihnen alle Möglichkeiten ge- 
zeigt, die in BASIC 2, in Structur- 
ed Basic und in Simon's Basic für 
Grafik und Akustik zur Verfu- 
gung stehen. Das Buch soll Ihnen 
zeigen, daß die Beschäftigung mit 
Ton- und Grafikerzeugung des 
Commodore 64 nicht unbedingt 
zur Frustration fuhren muß. John 
J. Andereon vermittelt Verständ- 
nis - besonders für jüngere C-64- 
Benutzer - und nicht nur Pro- 
gramme. Seine Informationen 
sind vollständig, ' bildreich und 
gegenwärtig in keinem anderen 
Text zu finden. So z. B. zur Ver- 
bindung von Bild und Ton, zum 
Lesen von Joystick-Signalen und 
zum Arbeiten mit der problema- 
tischen Floppy VC 1541. Dieses 
Buch ist jedem zu empfehlen, der 
der Leistungsfähigkeit des Com- 
modore 64 auf den Grund gehen 
will. Bereits nach kurzer Zeit ha- 
ben Sie es verstanden, Grafik, 
Klänge und sogar Musik auf Ih- 
rem Commodore 64 zu erzeugen. 
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239 1FA=8THENT=T+ 1 5 G0T0220 

240 IFA=5THENPL=3~PL!G0TQ220 

241 IFA=15THENG0SUB1 34 s GOTO 191 

242 IFA=I2THENG0SUB267:G0T0l9l 

243 IFA=6THEN60SUB 169s G0T0334 

244 IFA=9THENG0SUB343 

245 IFA=14THENC<l>=C<l)+lsG0T0220 

246 I F A= 1 7THENC ( 2 5 =C ( 2 > + 1 s GQTÖ220 

247 G0T0229 

248 REM******************* 

249 REM* END RACE * 

250 REM******************* 

251 J=189i:F0RI==lT0PL:T*(I)="«* 

252 FORI I=GTD4s T* U ) =T* ( I > +CHR* <PEEK i I 1+J ) ~1 28) s NEXTI I s J=J+6: t* ( 1 ) =T* < I ) 

253 TL* < I ) -RI 6HT* C " OÖOOO " +MID* (STR* ( INT C VAL ( T* '( 1 5 ) /LA) ) , 2) , 5) 

254 T* ( I } =*C* <C ( I ) ) +RIGHT* < b O"+MID* <3TR* (LA) ,2) f 2} +TL* CDs NEXT 

255 FOR I =*1 TD 1 OÖO : NEXT : POKE V+2 1,0s POKEV+ 1 7 , 1 s POKEV+32 , 1 1 s -PtiKEV+33 , 1 1 s PRI NT n W 

256 LETO , 2 , L*s LETO , 3 , n m" N* s LETO , 5 , LS s LET13 , 3 , M jMF INAL RESULTS" 

257 FQRI=6T01 1 : LETO, I , M S3"N*"ii " s NEXT 

258 LETG,12,"B M N* 

259 LETO, 14,L$s F0RI^15TQ203 LETO, I , n k. u N*"H " s NEXT: LETO, 21 , M k"N* 

260 LETl6,7,"!SßPLAYER 1 "sLET 16,1 6," ^PLAYER 2" 

261 LET3,9,"iag!TIME LAP"sLET3, 11 , "US"!* U ) M "RIGHT*<T*C1) ,5) 

262 LET3,18,"iÄJlME LAP*'sLET3,20, "[^"1* (2) " "RIGHT*<T*<2> *5) 

263 IFPL-lTHENLET3,20, H Sak000Ö0 OÖOOO" 

264 PÖKEV+ 17 , 27 s FOR 1=1 TOPL s V= I *9 : G0SÜB35 1 s NA* ( I ) -LEFT* ( NA* (X >+*''■■ ' '* » 9 ) 

265 T*(I)=NA*(I)+T*<i)sNEXT 

266 G0SUB1605G0SUB293: GOTO 191 

267 REM******************* ...,«■ 

268 REM* SELECT CAR •* ■ ; ■ 

269 REM******************* 

270 POKEV+ 17 , 1 s POKEV+33 , 8 s PQKEV+32 , ÖS POKEV+27 ,0s PÖ'KEV+23 , 5 PQKEV+29 ,0 

27 1 POKEV+28 , O s POKEV+2 1 , 1 27 s FOR I =1 T07 s P0KEV+38+ 1 , CO ( I ) s NEXT 

272 F0RI=lT013STEP2s POKEV+I-i ,32sP0KEV+I ,92+1*8: P0KE204G+ 1/2, 33s NEXT 

273 PRINT'VL*sLETÖ,l, tt g"N* 

274 LET13,l,"ia3SELECT CARS" 

275 LET0,2,"B|'.«ä— ■ ; • wk^mmmmm - 

276 LETO, 3,"!^ CAR • »ISk NAME OF SMÄ HIGH mii fifc. SPEED SM " 

277 LETO, 4, "ja, M» Kk CARS ' fti» Sk SPEED . m m Ük UP Si" " 

278 LETO 5 »— • • mmmmmmmmmmmm ' ■— — _« " 

279 F0RI=6T019r LETO, I , "I3Ü M 133 M HS M^S Sil 

280 NEXT S LETO,20,»SH WP m *■" Bffil *T »• WM* " 

281 FQRI=2T014STEP2:LET7,I+5,"ia3i»c*<I/2)sLET19,lV5,"|2ia"HS<I/2)*1.8 

282 LET29 , I +5 , "MB" 50-HB < I /2 ) s NEXT 

283 LETO ,21, L* : LETO, 22, "B"N* 5 
2B4 POKEV+17,27 

285 F0RI=lT0PLsLET7,22,"iaasELECT YPUR CAR PLAYER"I; : X=35s Y=7: Z=0 

286 J=PEEK(56319+X)ANDNOT12B:Z=l~ZsLETX,Y,R*<Z) 

287 IFJ^lllTHENG<I)=(Y-5)/2:LETX,Y,R*(l>2G0T0291 

288 IFJ=126ANDY>7THENLETX,Y,R*Cl);Y=Y-2 

289 I F J= 1 25ANDY< 1 9THENLETX , Y , R* ( 1 > : Y=Y+2 

290 G0TQ286 

29 1 F0RK=56T0393TEP- . 1 : P0KE2039+C < I ) , K s NEXTK ,1 

292 LET7,22, "laS PRESS F1RE TO CONTINUE M sWAlT56320, 16, 16s RETURN 

293 REM******************* 

294 REM* LISTS * 

295 REM******************* * < 

296 POKE V+ 1 7 , 1 s POKE V+33 , 6 s PR I NT " Ü" L* s LETO , 22 , L* s LT==T 

297 LT*=RIGHT*("00"+MID*(STR*<LT) ,2) ,2) 

298 LETO, 23, "133 TRACK "LT*" C-3 _ LEFT t+3 _ RIGHT Bi""; 

299 LETO, 1," 5" N*; 

300 LET3,l,"iaB3MR NAME CAR LAP TIME"; sTL=10*VAL<LT*) 

301 LET2,5,LEFT* (L*, 35) RIGHT* (L*,l) 
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302 F0RI=*6TOi7sLET2jI, M |ak SrtökJ'ssNEXT 

303 FQR X«*7T0 16: LET3 , 1 , R I BHT* < * O " +M I D* CSTR* ( I -6i , 2 > , 2 > 5 

304 L£t6, I ,MID* CHI*CTL+t-7> , 1 ,9) 5 

305 LEtl6,I,MI0*CHI*<TL+I-7>,lO,8>; 
30&LEt25,I f t1IP*<HI*(TL+I-7> ,18,2)5 

307 LET29, t ,MID*<HI*<TL+I-7) ,20,5> 5 ;NEXT:PaKEV+32,6sP0KEV+17,27 

308 J«PEEK < 56320 ) s I FJ« 1 1 1 THENFR I NT " £" s RETURN 

309 I F J* 1 1 9ANDLT< 1 i THENLT=LT+ 1 's 60TQ297 
3 1 Ö I F J :« 123ANDLT >OTHENLT^LT- 1 s G0TO297 

311 60T030B 

312 REM******************* 

313 REM* TITLES ■ * 

314 REM******************* 

315 FOKEV+ 17,1s FQKEV+33 ,11s POKEV+32 ,11: PtKEV+2 1 , O : POKE V+22 , 20O 

316 PRIHT"tkia tt 5 5LET3,l f H fei IM IM Uli H '*; 

317 LET3,2," EMU W UIM IH III IH IUI B WH "5 

318 LET3,3," UMUM UIM KU Kl! IH I) III II IHM "; 

319 LET3,4," «HU IM M III M M WM "5 

320 LET3,5," Uli II UM Kl UM II li II UM "5 

321 LET3,6," «IM II UM II Uli II Uli II UM "5 

322 L£T3,7," » UM W UM II UM II "5 

323 LET8,10," II U IM UIM "5 

324 LETQ,11," UIM II UIM 11 UM IM "s 

325 LETS, 12," UIM II UIM II UIM "5 

326 LET8,13," II IM IM M 5 

327 F0RI=14TO16:LET8,I, M WIM UM H MI HUI":sNEXT 

328 LETl,18jL* 

329 FÖRI-l9Tb23s P0KE646 , F C I - i B ) 

330 LETi»I, M !äS S*r*MNEXT 

33 1 LET39 , 23 , "■ '* 5 : LET3 , 20 , "MG < G ) 1 985 BY MR-SOFT RONALE» MAYER " s 

332 LET3,22,"SiTRACKS CREATED BY ALEXANDRA MAYER" 

333 PÖKEV+ 17, 27: RETURN 

334 REM******************* 

335 REM* START RACE * 

336 REM******************* 

337 PÖKE4Q04 ,PLsPtiKE4005 , HB <C ( 1 ) .') 5 P0KE4Ö06 ,HB CC C2> > s PQKE4020 ,Os PÖKE4021 , 

338 POKE4007,HS(C«l))sPOKE4008,HS<C(2)) 

339 P0KE4O09 i LA : P0KE40 1 4 , L A s I FPLs= 1 THENPQKE4Ö 1 4 , 

340 FORI *40 1 OT04O 1 3 s P0KE I »O 5 NEXT 

341 P0kE4l78,ÖsP0l<E4iÖ0,b 

342 SYS4607 s P0KEV+ 16 , Os P0KESI +24 * 5 BOT0248 

343 REM******************* 
'344v;i^M*;-.:SAyE :: LISTS.: . . .' *• 
. $4^- : REM******************* 

346 0FEM2, 8,2," @0s LIST, S,W" 

347 FQRI~ÖT0i 19: PRiNT#2*HJ* i I ) s NEXT 

348 0PEM1 ,8 , 15s INPUT* 1 , A* , E* , C* , D*s CLOSE 1 s CL0SE2 

349 ' A** " OB" + A*+ "!"" +B*+ " " -*C*+ " - " +D* s XI« < 40HLEN < A* > > /2 

35Ö LETX X ,20 * A*s WAIT56320 ,16,16s P0KE781 , 20s 3YS59903 : «AIT56320, 16 *Os RETURN 
351 REM******************* ■ ■ ■ ■ . 

'. 352 REM*-::NAME-' iNPUT .:'*;.'..'. '.''.■'■'■'■'■''■"'..'■'. 

353 REM******************* 

354 P0kfei98,OsNA*= M "8P0KE646,7:IFI^2THENPOKE646,3 

355 LET2Q,Y,"IS£NTER YtJUR NAME" sX-0 

356 LET23,Y+2,"SOi M ; 

357 BETA*: IFA*- ""THEN357 

358 t FA*-CHR* € 20 > ANDX >0THENX=X- 1 s NA*=LEFT* ( NA* , LEN ( NA* ) - 1 > s PR I NT " HM" U*? 

359 IFA*-CHR*( 135 AN0X>OTHENNA*tI>=NA*s RETURN 

360 IFA* > " 6 " ANDA*< " t " ANDX< 9THENNA*=NA*+A* : X =X+ 1 s PR I NTA*U* ; 

361 I FA*- M " ANDX >0ANBX< 9THENX-X+1 s NA*~NA*+A*s PRINTA*U*| 

362 60TO357 

363 REM******************* 

364 REM* TRACKPARTS 1 * 

• - ' ' ■ ' ■ . ■ . i 
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365 
366 
367 
368 
369 
370 

371 

372 
373 
374 
375 
376 
377 

37a 

379 
3S0 
381 
382 
383 
384 



386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
4Ö1 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 

420 
421 

422 
423 
424 
425 
426 



REM******************* 

DATA00 , OO , OO , 00 , OO: REM O " I *' 

DATA01, 03, 03,03,02: REM 1 "-" 

DAT A04, 04, 04,04,04: REM 2 "l" 

DAT A04, 23, 24, 25, 04s REM 3 "MR" 

DATA05 , 06 , 07 , 08, 09 : REM 4 " r » 

DATA10,il,12,13,14sREM 5 " , " 

DATA15,08,16,17,18:REM 6 " l " 

DATAi9,13,20,21,22sREM 7 "-' M 

F0RI=0T07s FORJ=OT04s READTP < I , J > : NEXTJ , I 

REM******************* 

REM* TRACK-MAP * 

REM******************* 

DATA" ! " , "-" , » ■ " , " " , " ,-** , " 

F0RI=0T07s READTM* ( I ) : NEXT 

REM******************* 

REM* TRACKPARTS 2 * 

REM******************* 

DATA M @ A'V'BBBBB'V'CCCCC'V' 

DATA M FSH f,"I ","© ","@ 

DATA" G"," A","P A","@ 

DATA * DD VCC " , w W A " , " X " , " 

FDRI=0T025: READS* ( I > s NEXT 

REM******************* 

REM* TRACKS * 

REM*********** ******** 

REM TRACK 00 



14 l l| Mi ii 

* 



" , "DDDDD", "DDEEB 
J'VBBKDD"," LMN 
Q" ,"R 'V'STU 
VZ t •• , "CC\DD" , " 3' v ! #*" , "%8t ! * *" , " <)*+,'' 



Computerabdeckhaube 

mit integrierter 

Schreibablage 

Es muß nicht gLeich eine Blumenvase 
oder ein Cola-Glas sein, das über den 
Computer kippt und seine wertvollen 
Innereien ruiniert. Schon Staubparti- 
kel können auf längere Zeit gesehen 
die empfindlichen Tastaturen beschä- 
digen. Daher empfiehlt sich, den Com- 
puter bei längerem Nichtgebrauch 
staubdicht abzudecken. Hierzu wer- 
den im Handel bereits verschiedene 
Formen von weichen (Textil-) oder 
harten (Plastik- )Hauben angeboten. 
LINDY hat sich nun Gedanken ge- 
macht, wie man derartige Hauben 
auch noch an- 



DATA4, 1,1, 1,1*1 
DATA0,2,2,2,4,1 
REM TRACK Ol 
DATA4,1,5,2,2,4 
DATA0,2, 6,7,4,1 
REM TRACK* 02 
DATA4, 1,-1, 1,5,2 
DATA0,2,2,2,4,1 
REM TRACK 03 



data: 



: A4, 1,1 



D AT AO, 2,3,2,0,2 
REM TRACK 04 
DATA4* 1,5,2,2,2 
DATA0,2,2,4,1,1 
REM TRACK 05 
DATA4,l,5,2,4,i 
DAT AÖ, 2, 2, 2, 4,1 
REM TRACK 06 
DATA4, 1,1,1,5, 4 
DATA4,1,1,7,4,1 
REM TRACK 07 
DAT A4, 5, 4, 1,1, 5 
DAT AO, 6, 7, 2, 4,1 
REM TRACK 08 
DATA4 ,1,1,1,1,1 
DATA0,2,3,2,4,1 
REM TRACK 09 
DATA4, 1,1, 1,5,4 
DATA4,1,7,2,4,1 
REM TRACK 10 
DAT A4, 1,1,1,5, 2 
DATA0,2, 2,2,0,2 
REM TRACK 11 
DAT A4, 1,5, 2, 4,1 
DATA0,2,2,2,4,1 
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2,0,0,2,3,2,2,2,2,0 
1 

2,0,0,3,0,4,1,7,2,0 
3 

1,5,4,7,2,3,2,2,2,0 
1 

2,0,4,1,1,7,4,1,1,7 

1 

7,0,0,3,6,7,2,2,2,0 

2 

5,0,0,3,6,1,1,1,7,0 



,0,6,1,1,5,6,7,2,0 



0,0,0*0,0,3,2,6,7,0 

1 

1,7,0,6,1,1,1,1,1,5 

6,5,6,7,4,7,2,3,2,0 
1 

3,2,0,2,2,2,0,2,2,2 
1 

2,0,0,3,6*1,7,2,2,0 
1 



derweitig nutzen 
kann, besonders 
in der Zeit, da 
der Computer in 
Betrieb ist. Die auf dem Bild gezeigte 
Lösung bietet einen interessanten 
Zweitnutzen für die Hartplastikhaube 
aus rauchfarbenem, transparentem 
Kunststoß. Sie hat eine Schreibfläche, 
ein Ablagefach für Notiz zettel und ein 
weiteres Fach zum Aufbewahren von 
Schreibutensilien. 




Die Ausführung für die Commodore- 
Modelle VC 20, C 64 und C 16 ist ab 
sofort erhältlich in den Computerab- 
teilungen von Hertie und Karstadt, in 
VEDES-Geschäften mit Computer ab- 
teilung und in guten Computershops. 

Unverbindlich empfohlener Verkaufs- 
preis ca. DM 20,-. Im Juli folgt die Aus- 
führung für den Schneider CPC 464 für 
ca. DM 30,-. 
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427 FOR I =ÖTO 1 1 : FOR J=ÜTG36 s RE ADTR ( I , J ) s NEXT s RE ADPX ( I ) , PY ( I ) s NEXT 

428 REM******************* 

429 REM* CARS * 

430 REM******************* 

431 DATA*'MC LAREN" ,180,30,1 

432 DATA"FERARRI ",175,27,2 

433 DATA"RENAULT ",170,24,7 

434 DATA" LOTUS ",165,21,0 

435 DATA"BRABHAM H ,160,18,6 

436 DATA ,, WILLIAMS M , 155, 15, 13 

437 DATA^LIGIER ",150,12,9 

438 FOR I *1 T07 s RE ADD* < I i , HS U > , HB U 5 , CG C I > : NEXT s RETURN 

439 REM *** *** 

440 REM **# #*# 



Tips & Tricks 



Ein Listschutz für alle, die ein 
Programm schützen wollen. 



SECURE für den Commodore 64 



Nach dem Laden des Secure-Program- 
mes startet man es mit „RUN", Nun 
kann man das zu schützende Pro- 
gramm laden. Die erste Zeile dieses 

Programmes muß die Zeilennummer 
haben. Um es zu schützen, gibt man 



„SYS 49152" ein. Will man das Pro- 
gramm nun listen, erscheint nur noch 
„SYS 2090: PROTECTED BY KLAUS 
DILLINGER". Nun kann man das ge- 
schützte Programm abspeichern. Um 
ein geschütztes Programm zu starten, 



gibt man, wie gewohnt, „RUN" ein. 
Während das Programm läuft, ist die 
„RUN-STOP"-Taste ausgeschaltet. 
Bei Betätigen der „RESTORE" -Taste 

erfolgt ein System- Res et. ' 



REH COPYRIGHT BY KLAUS DILLINßER 1985 
10 REH 

15 rem dies ist ein schutzprügramm füer 

20 rem bas icprqsr amme -vor dem verwenden 

21 rem der restdre-t aste wird gewarnt ! 
25 rem ■'"■:'. 

30 rem starten durch sys49152 

35 rem die erste zeilennummer des zu 

40 rem schuetzenden programms muss sein 

50 DÄTA169,8, 162,0, 133,96, 134,95, 165,45, 166,46,133,90, 134,91,24,105,129 

51 0ATA133, 45, 133,88, 144, 5, 166, 46,232, 134, 46, 134, 89, 32, 191, 163, 160, 0,185 

52 DATA49, 192, 153,0,8, 200, 192, 129, 208, 245, 96,0, 40, 8, 10, 0,158,50, 48,57, 48 

53 DATA5B, 80, 82, 79,84,69, 67, 84, 69,68,32, 66, 89, 32,75, 76, 65, 85, 83,32, 68, 73 

54 DATA76, 76, 73, 78, 71, 69, 82, 0,0, 0,160,0,185, 58, 8, 153, 0,192, 200,192, 96, 208 

55 DATA245,76, 0,192, 120, 169,59, 141, 20, 3, 169, 192, 141, 21, 3, 169, 252, 162, 226 

56 DATA141, 25*3, 142, 24, 3, 88, 169 ,8, 133, 140,162, 129, 134, 139, 133, 142, 160,0 

57 DATA132, 141, 177, 139, 145, 141, 200,208, 249, 230, 140,230, 142, 169, 159, 197,140 

58 DATA208,239,234,169,i38,76,231,167,32,234,255,162,255,134,145,76,52,234 
60 F0RT=49 1 52T049363: READAs PÖKET , A s S=S+ As NEXT 

65 IFS<>2423ITHENPRINT ,, FEHLER INDATAS":END 

70 PRlNT'*LiSPEICHERN=R£TURN" : POKE19B,0: WAIT19B, 1 : SETA$s IFA*< >CHR* ( 13) THEN70 

75 PRINT M |wD=DISK;K'=KASETTE M !P0KEi98,0:WAIT198 f lsSETA*sIFA* , <>"D"ANDA*<>"K M THeN75 

80 IFA*-"P ,, THENP0KE49329,8 

85 SYS49328sPRINT"N0CHMAL ABSPEICHERN =N? ANSONSTEN SPACE« 1 

90 SETA*s IFA*<>" M ANDA*<> ,, N"THEN90 

95 IFA$- ,, N ,, THEN70 

96 DATA162, 1,160, 1,32, 186, 255, 169, 6, 162,206, 160, 192, 32, 189, 255, 169, 0,132 

97 DATA140, 133, 139, 169, 139, 162, 176, 32, 216, 255, 96,83, 69, 67, 85, 82, 69 
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Tips & Tricks 



i_ylGS6S kleine Programm für den 
VC-20 in der Grundversion läßt sich 
gut als Gestaltungsmittel iür Spiel- 
anleitungen in ein eigenes Programm 
einbauen. Mit seiner Hilfe ist es mög- 



lich, einen Text von oben nach unten 
über den ganzen Bildschirm scrollen 
zu lassen. Zeile 10 kann weggelassen 
werden, wenn der Variablen A$ selbst 
ein Text zugeordnet wird. 



1 OOO REH ********** 

1ÖI0 REM * 

1020 REH * A.SCHAER 

1O30 REM * 

1 040 REH ********** 

1050 REH 

1Ö6Ö FQKB Z&B79i&iFRim<m u 

1070 INPÜT A*sREH BEI VERWENDUhiÖ ALS ^ UNtERFROßRAHn A* 

löSO PRINT"i Mi "sPQKE 36S65, l^PRINt A$ 

1090 PQKE 36865jl2F0R 1= 2 TQ 460 

1 100 PÜKE 36865 , I s NEXT 

1 110 ßöTÖ 1090 



TEXT 



RACEON 



Ein Autorennen 
Hindernissen 



Das Spielprogramm RACE ON han- 
delt von einem Autorennen mit ge- 
fährlichen Hindernissen. 

Es kommt hier auf Ihre Geschicklich- 
keit und ein gutes Reaktionsvermögen 
an. Während der Fahrt tauchen plötz- 
lich Hindernisse vor Ihnen auf, denen 
Sie durch schnelle Reaktion auswei- 
chen müssen. Dieses Programm bietet 
Ihnen die Möglichkeit, die Breite der 
Straße und die Position der Wagen zu 
wählen. Für eine Fahrt steht Ihnen ein 
bestimmter Zeitraum zur Verfügung 
oder Sie wählen die Anzahl der Wa- 
gen. Gesteuert wird das Spiel mit dem 
Joystick, wobei die Feuertaste als Be- 
tätigung der Gangschaltung dient. 

Vor dem Start des Programms muß 
jedoch RACE ON Res. geladen und 
gestartet werden, da in diesem Pro- 
grammabschnitt die Zeichendatas de- 
finiert sind. Danach können Sie das 
Hauptprogramm laden und starten. 

Hals- und Beinbruch ! 
Computronic 
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100 P0KE36S79,42sPRiNT"|03S"SPC<7) ,, RACE QN"SPC (54 > "FAHREN SIE NACH 5 * 

105 PRINT"^aÜOa«Jl) ZEIT ?"SPC(12)"2) AUTOS ?" 

110 PRINT M ß3BITTE NR- 1-2 EINGEBEN®"* Z*="235959 M 

115 BETA* s I FA*< " 1 » OR A# > " 2 " THEN 1 15 

120 ONVAL(A*)GÖT0130,140 

130 INPUT"ZEIT (MMSS) *;Z*s Z*^ M 00"+Z*s IFLENCZ*)<>6THENPRINT' , rjD":60T013Ö 

135 S0TQ150 

140 INPUT "WIEVIEL AUTOS "|ZsZS«ls IFZ<10RZ>10OTHENPRINT , *tr3* , sG0T0140 

150 XNPUT**I$SPURBREITE (1-4) M ;Z1: IFZK10RZl>4THENPRINT M aX3 M sBOT0150 

155 INPUT»iSAUTO IN ZEILE--- "; Z2: IFZ2<1ÜRZ2>20THENPRINT"lTTJ»sS0TO155 

160 PRINT"Bää STEUERN MIT JOYST I CK " SPC < 5> " (FEUER ~ GANG) 

165 PRIMT^H JOYSTICK DRUECKEN" 

170 IFPEEK (37151 >=126THEN 170 

200 A*=LEFT* ( " HKKKK " , Z 1 ) s B*-A*+ ° K " 

205 A* ( 1 ) =s'«CD"+A*+"kß"+B*+ n aCD" 

210 A*(2)="@ ,, +B*+ ,, kF H +B*+ ,, a@" 

215 A*(3)~"AB"+B$+"fc t H"+A*+"SAB" 

220 A*<4)-"ä E"+A*<2> 

225 AU-7682+Z2*22:R-lS~Zl*2sZ2*Zl*2sZl^AU5Z3^7.8iZ4-0 

230 S 1 =*36B74 s S2=S 1 +2s S3=S 1 +3 s L=S 1 +4 s W=30720s 6~6Ö 

232 rtlKlsM2-2sM3~3sH4-5sM5=6sM6=9rM7=~15sMB=-22sM9~60 

233 Nl«94s N2=l 10s N3=l I9s N4-174s N5=600s N6=B144s N7-37151 s N8~37152s N9--. 2 
235 PQKESl+5,8s POKESt-5, 255s PÖKEL, 10s P0KE37154, 127 

240 PRINT <, US ,, ?!F0RT=lT022sPRINTA#(2)sNEXT 

245 P0KEAU,9sPQKEAU+W,lsG0SUB700 

300 C2* I NT ( RND ( 1 ) *R ) s I FC2=C 1 THEN300 

305 F-SGN(C2-Cl)sIFF=ETHENCl=ni+E 

310 E«F:F=E+M2 

315 F0RA=*CiTQC25TEPE 

325 G0SUB40OSNEXT 

330 A=C2s KM=K«+ABS (C2-C1 ) 

332 IFTI*>Z*THEN8Ö0 

335 C2?=INT (RND ( 1 ) *M6) s F-E+M3 

340 FQRC1-M1TOC2 

350 G0SUB400sNEXT 

3S5 Cl=As KM^KM+C2s I FC2 >Z3THENZ3~Z3+N9s P0KEN6+A+RND (Ml ) *Z2 , M4 

360 G0T03O0 

400 PRI NTSPC < A ) A* ( F ) s PDKEAÜ+MS , N4 

405 IFPEEK <N7 5 «N2THENAU«AU-M1 

4 1 1 FPEEK < N8 ) =N3THENAU~AU+M 1 

415 IFPE£K(AUXM5THEN6Ö0 

420 POKEAU , M6 s POKE AU+W , H 1 

430 XFPEEK ( N7 ) -N 1 THEN5O0 

435 FÖRT=ÖTÖGsNEXT 

450 RETURN 

500 S*G+M7: IFG-M7THENG-M9 

505 PRINT"|lHliaaj"«4+G/M7"H S"sFOKESl , 153H3/M2 

510 G0TQ435 

600 P0KEAUjl2sPOKEAU+W,7sP0KEL,i58P0KESl,0sPOKES3,12S 

605 FORT=1TP10 s P0KE36879 , 25s P0KE36879 , 8 s NEXT 

6 10 FÜRT- 1 TOSOs PÖKEL , 1 5- 1 NT ( T/3 . 3 > s POKE AU , RND ( 1 ) »2+1 2 s POKEAU+fe* , I NT ( RND CD *2 ) *5+2 

sNEXT ..■■■'■' 

615 Z4=Z4+1:IFZSANDZ4=ZTHEN800 

620 F0RT~OT022 s PR I NTTAB ( A+F/2 . 1 ) A* ( 2 ) s NEXT 

625 FORT*Zi-2TOZl+2ÖsIFPEEK(TX>llTMENNEXT . . - 

630 AU=T+ 1 s G=6Ö s POKE AU , 9 s POKE AU+W , 1 s P0KES3 , O 5 PÖKEL , 1 O 

635 GQSUB700sßOTQ42Ö 

700 TA=18sIFA>5THENTA=l 

7io PRiNT"£ä"spc (ta> "Mm ^.Hiiii i »ma i mmwi v-^ sussi i »im i mmm h- h mmm* i saaßsä 
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aaMi^s« ■■■■.-.:.. 

715 FQRT= lT02»N5s NEXTs P0KE384©9*TA , 2s PDKES2 , 230 

720 FORT«! T0N5S NEXT s P0KES2 , Os FORT- 1TÜN5 s NEXTs PQICE38533+TA ,7s P0KES2, 230 

725 FORT- 1 TONS s NE XT s POKES2 , s FORT« 1TON5 : NEXTs P0KE3S489+TA j 6 s P0KE3S533+TÄ , 6 

730 PQKE38577+TA* 5s P0KES2 , 205s F0RT«lTO2*N5s NEXT* P0KES2 , s P0KE51 , 128 

735 POKESi 4,215 PR INT 

740 POKE AU ;, 1 1 s I FTS-OTHENT I *= " ÖOÖÖÖO " s TS- 1 

745 RETURN 

800 PÖKES 1-5 ,240s P0KES1+S ,93s POKE37 154 , 255s P0KES1 , Os P0KEE3, 

805 PRINT"UiMMMUGAME 0VER«SPCC3S> n m »AßOTM -VUSiM HM " 

810 PRINT"KB8 BEFAHRENE ZEIT»" 

815 PRINTTAB(26>LEFT*<TI*,2)«s"MID*(TI*,3,2)"s"RISHT*(TI*v2) 

820 PRINT"ia GEFAHRENE KILOMETERS "SPC (26) KM/ 10 

825 PRINT"® GEFAHRENE AUTOS* »SPCC30) Z4+1-ZB 

830 PRINT M 8a NOCH EINMAL (J/N) ?"sP0KE19S,0 

835 SETA*sIFA$-""THEN835 

840 IFA*~ M J"THENRUN 

845 P0KE36879,27sPRINT»iJ5 ,, 5 SEND 
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Als Schloßverwalter haben 
Sie die Aufgabe, Geister aus 
den Räumen des Schlosses | 
zu vertreiben. 




sötö3 - 

1 sl985 CO IN KIEL BY 

2--.S' .:■'■ ' • TIMM." HAASE " : ?:■': .'■ 

3 POKE51 ,0s PÖKE52 , 28 s P0KE5S , s PÖKI56, 28s 
CLRs eB^71&8s PRINTCHR* CS) 

4 READAs IFAs-lTHENlOO 

5 FORN'^Tt37 s REABÄ s P0KECB-»"A*8*N , BS NEXT 

6 SÖT04-. ■'■: 

7 DATAO * 255 * 1 45 , 1 45 * 255 f 255 * 1 37 * 1 37 , 255 

8 DATA! ,60, 90*255*195*129,129*66*60 

9 ÖATA2 * 60 , 90 * 255 ,255 , 1 89 ,195, 126 , 60 

10 ÖATA3 * 1 26 , 255,201 ., 255 , 189 , 195 , 255 ,85 

11 DATA4, 126 ,255, 147 ,255*195 *189*255, 170 

12 BATAS » 66 ,231 ,189 ,255 * 195 , 189 * 195 , 126 

13 BATA6 » 66 ,231 , 189 ,255 ,255 , 195 ,255 , 126 

14 DATA32,O,O,0, 0*0*0*0,0 

15 DATA7*62 , 124 ,224, 192» 192*224, 124*62 

16 DATA8, 254,254,198, 198,254*254,198,198 

17 DATA9 , 62 , 124 , 224 , 2Ö4 , 2Ö6 ^ 230 * 1 26 , 62 

18 DATA! Oi 195, 195 , 195 ,195 * 102 , 24*24* 24 

19 DATAi I ,126* 129,153 ,161, 161 * 153* 129, 126 
22 BATA14 ,0 , 229 * 149, 229 , 146 , 146 , 226 ,0 



LJcLZU. müssen Sie die schwachen 
Geister (Pac Man-Geister) fressen und 
einen Angriff auf die stärkeren Geister 
wagen. Für jeden beseitigten Geist er- 
halten Sie eine bestimmte Anzahl von 
Punkten. Die Phase, in der die stärke- 
ren Geister angegriffen werden, wird 
durch einen veränderten Sound und 
die Darstellung eines Kopfes in der 
Mitte des Bildschirms besonders ange- 
zeigt. Gelingt es Ihnen innerhalb der 
kurzen Zeit, einen der stärkeren Gei- 
ster zu besiegen, gelangen Sie automa- 
tisch in den nächsten Raum bzw. das 
nächste Gemach. 

Die Punktzahl wird unten links am 
Bildschirmrand angezeigt und der je- 
weilige Raum, in dem Sie sich befin- 
den, unten rechts. Zu Spielbeginn ist 
das Männchen oben rechts am Bild- 
schirmrand zu erkennen. Die Farben 
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wurden so gewählt, daß auch auf ei- 
nem Schwarzweiß- Fernseher eine 
gute Unterscheidungsmöglichkeit be- 
steht. Berühren Sie ein Monster, flim- 
mert der gesamte Bildschirm auf und 
das Männchen verschwindet. 
WICHTIG: Vor dem Start des Pro- 
gramms muß der Schriftmodus auf 
Großschrift sein. Beim Titelbild des 
Hauptprogramms erklingt eine kurze 
Melodie. Nach dem Starten des Vor- 
loaders dauert es etwa 30 Sekunden, 
bis die Zeichen eingelesen sind. 
Gesteuert wird mit Joystick! 



Anzahl der Räume: 
5 Gemächer 

3 Folterkammern 

4 Türme 



IDach 
2 Säle 
1 Toilette 



23 DATA15,7, 15, 15,31 ,31 , 14, 14,30 

24 PATA16,255,255, 255,255, 0,195, 211, 16 

25 DATA17, 224, 240, 240,248, 248, 112, 112,120 

26 DAfAt8,14,14, 14,6,6,2,2,1 

27 BATAi9,16, 16, 16,20, 24, 16,0,0 

28 BATA2Ö, 112, 112, 112,96, 96, 64, 64, 128 

29 DAT A2 1,1 53, 153, 66, 36, 24, 0,0,0 

30 DATA23,Ö,0, 0,0,0, 65, 65,0 

32 D ATA49 , 63 , 72 , 1 67 » 128, 225 , 49 , 239 , 195 

33 DATA50 S 3, 4, 196,35, 144,24,56, 195 

34 0ATA5 1 , 1 96 , 10,17, 1 45 ,81,81 ,74 , 1 32 

35 DATA52, 119,66,66, 114, 66,66^66,66,-1 

100 POKE36869,255if1?0KE36879,25sF > RiNT"LÄ rt 

101 PRINT"£SM2^l»fcl*l!ieHI J WWW* - 

102 PRINT M WBft»>W»J>fciPPBB»lWRS7BMBU " 

103 PRINT«*^IUM«fclÜK|yWW1234«" 

104 E*=iÖO .v.--. 

105 PRINT"BgE9BgfcBSE3iBSBgpRESS 'Fl' TO START 
1 10 P0KE36S78, 10s E^E-4: IF£<0THEN2O0 

115 PGKE36S76, 135s FGRT=lTOES NEXTTs P0KE3687& ,200s FORT- ITQEs NEXTTs P0KE36876* 128 

1 16 FORt= 1 TQE s NEXTT 
120 GETA*5 IFA*=? M S"THEN200 
130 GQTQ110 ■ .. 
200 PRI NT '* .US* s P0KE36879 , 8 
210 PklNT''töINSTRUKTIONSs ":'■ . 
220 PRINT"^S3SIE SIND TN 
230 FRINt"iäL£ IDER FI NDEN 
240 PRINT^iaWERTREIBEN SIE 
250 PRINTE '«CÖT FRESSEN- SO SIND SIE GEGEN DIE STARKEN GEISTER....," 
256 BQSUBlOOÖsGaSUBlOOOs SOSUBlOOOs PRINT'^' 1 

260 PRINT"ür«Füa' IMMUN UND KDENNEN SIE FRESSEN- ÄSER VOR- SICHT s DIE WIRKUNG" 
27G PRINT"iäHAELT NICHT LANGE AN. SO DURCHKAEMMEN SIE DIE GANZE BURG* * 

271 PRINT"ga?3?gM^P»»»|iW12341ä 

272 PRINT"^ WUENSCHT IHNEN VIEL i^WWSPASS! 
275 ©GSUB 1 000 s G0SÜB1 OOO s G0T02000 

1000 M^8121 rMl^Öl 19s M2=8139s P0KE36S79,Sfi P0KE36S76,0s F0RG=8076T08O97sPOKEQ,OsNEXT 

B '-.'■.:■ 

1001 A~t5PDKE36877,135 

1002 IPMN12THEN1Ö2Q 

1003 Ppi<EM,32sM«M+AsPOKEM,2^POKEMli32rMl~Ml+AsP0KEMi,5sPGKE36S77,0 

1004 F0RL=*1 TGSO t NEXT s PQKEM, 1 s PQKEM 1 , 6s P0KEM2 , 4s FaRT=ITä8Qs NEXTTs P0KEM2 ,3 
1010 S0T010ÖI 

1 020 M 1 ^=M 1 -2 s F0RQ=8076T08O97 s POKEQ , O s NEXTQ 

102 1 P0KE36876 , 1 35sPQKE36877, 0*5 A=-* 1 z B=~ 1 , 15s P0KE36877, 135 

1023 PQKEM , 32s M==M+Bs PQKEM , 2sP0K£Ml ,32 s Ml=Mi + As PQKEM 1 , 5s PQKEM2 ,32 s P0KE36877 , 

1024 FGRL=lTQ80sNEXTsPOKEM,isPaKEMl,6!FORT=lTQ8ÖsNEXTTsPOkE3&876,0 
1026 IFPEEK(M+B>-6THEN1Ö40 

1030 SGTG1 021 
.404O : 'PqKE36876-,128- • 
1045 F0RB=lT01isP0KEHl,is PQKEM 

tq :■;.;■;:". ■..'»/, -.■.,:-. •.■,"■■:"■...■ 

1050 RETURN ■'..'.■''■.■■ 

2000 PRINT«^" SPQKE36879 , 25s P0KE36869, 240s P0KE36876 ,Os P0KE3687S , O 

2010 PfttNT w »^^gMlftl!rLEASE LÖAD THE" 

2020 PRINT M |^^iil!iÜAINPROGRAMM H s NEW . ; 

3O0O- s ■■■■ 



IHRER BURG, DIE SIE 
SIE KEINEN KAEUFER , 
DIE GEISTER. INDEM 



VER- KAUFEN WOLLEN. ABER 

WEIL ES IN DER BURG SPUKT- " 

SIE DIE SCHWACHEM GEISTER" 
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Die Floppy des Commodore64 und VC-20 



Teil 2 

i GOTO 10 
2 : 



(C) 1985 BY TIMM 



HAASE 
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von Dr. Hans Riedl und Claus Hentschel 

Der Commodore 64 und sein kleinerer Partner, der VC-20 r 
sind die Stars unter den Mikrocomputern. Durch den Einsatz 
der Floppy-Disk VC- 1541 läßt sich der Anwendungsbereich 
beider Geräte noch erheblich erweitern. Man könnte also 
sagen, daß die Floppy VC- 1541 mit eines der wichtigsten 
Hardware- Zubehörteile dieser beiden Systeme ist. Dieses 
Buch des Kiehl Verlags ist eine Einführung in die Arbeitsweise 
der Floppy-Disk. Hier erfährt der Einsteiger im Detail, wie die 
Information auf der Diskette abzuspeichern ist und was man 

über die verschiedenen Datei- 
typen wissen muß. Interessant 
sind - besonders für den be- 
reits fortgeschrittenen Anwen- 
der - die Beiträge über Direkt- 
und Maschinenprogrammie- 
rung. Das Buch stellt eine echte 
Bereicherung für jeden, der ei- 
nen Commodore 64 oder VC- 
20 besitzt, dar. Wollen Sie also 
mehr über die Floppy-Disk 
VC- 1541 erfahren, lesen Sie in 
diesem Buch.* 

Kiehl Verlag Ludwigshafen, 
ISBN 3 470 804311, Preis 
29,80 DM 



3 
4 
5 
6 
7 
8 
9 

10 PRINT'W s PQKE36879 r 25s PQKE36869 , 255s PRINTCHR* (S) 
20 PRINT«B8H^ä9MMM«yWßHIJ WW» 
30 PR INT "EMW »»» WMOPQ2gg*lRS-nmiU " 
40 PRINT"»B3aSSÄM«W< N 1234" 
50 S2«36876 ' 

&Ö L= 8 36878 
70 PÖKEL, 15 
SO READP: IFP«-1THEN12Ö 
90 READD 

1 00 P0KES2 , P> FQRN* i TOD s NEXTN 
110 PÖKEB2, Öa FORN»lT020s NEXTN 
115 BGTOSQ 

1 20 P0kES2 , O : SÖTÖ 1 000 
1 30 ÖAT A2 1 7 , 400 ,213, 400 ,223 , 400 
1 40 DATA227 ,200, 234 , 200 , 230 , 400 
145 DAT A227,2Q0, 234,200,230 ,400 
150 DAT A223, 400, 227 ,400, 2 17, 400 
990 DATA213,600,-1 

1000 N=OsPRINT"£ H :PQKE36879,8:POKE37i39,0 
1010 FÜRQ«7680T07701 s POKEQ , Os NEXTs F0RG=7702T07723: POKEQ, Os NEXTQ: GQSUB7000 
1020 FQRQ«8164T0BiB5s POKEQ, OsNEXT: F0RQ=8142T08163b POKEQ, Os NEXTQ 

1 030 F0RQ=7724T08 1 64STEP22 s POKEQ ,0 : NEXTQ s FGRQ=770 1 TQ8 1 85STEP22 s PÖKEQ , O s NEXTQ s M-7 
'725 4 "■■■ 

1040 X-36B76 

1 050 pr i nt " \**mmj>mmmm>**w*p*m@®®ammmm 

€@ u ''■■■. 

1060 F0RQ-7746TÖ7752s POKEQ ,Os NEXTQ? F0RQ=7750T08038STEF225 PÖKEQ, Os NEXTQ 

1070 FÜRQ-7761T07767: POKEQ , 0: NEXTQ s FORQ=7763TQ8050STEP22: FQKEQ*Q5 NEXTQ 

1080 F0RQ=7976TO8O983TEP22s POKEQ , Os NEXTQ 5 F0RQ~7712T07878STEP22s PQKEQ , Os NEXTQ 

1090 PR I N T " f= ffBgjqai^lfiKBi^^ " 

1098 P0KEM1 ,32sP0KEM2,32äP0KEM3,32;P0KEM4,32sM1=7793sM2=7808sM3=8034sM4=S05O 

1099 P0KE8136,05P0KE8i27,0sY«36878 

1 100 39=PEEK ( 37 1 37 ) s P0KE37 1 54 , 1 27 : JB-PEEK < 37 1 52 ) s P0KE37 1 54 , 255 s POKEX , O 8 P0KE36878 

,5 

ilOl P0KEMl,5sP0KEM2,4sP0KEM3,4sP0KEM4,5 

1107 PRINT-'CMSBt^gt^^g^ 

1108 pr i nt " wmmmmmmmmmmmip*v***¥*+****pm n b* 

1110 IF(J9AND4)«0THENA=-22 

1120 IFCJ9AND8>=QTHENA=22 

1130 IF<J9AND16>~ÖTHENA=~1 

1140 IF(J8AND128)=0THENA=1 

1 150 IF6>0THENPRINT"HS|fl#M^^ * PÖKEY, 15s POKEX , 135s 

sN=N+l 

1160 I FG< OTHENPR INT" E^1te3iM%^^ dlll DHH 

1170 IFPEEK<M+A)*OTHENA-0 

1200 IFM-M20RM=M3THENG=aösSOT01Ö98 

1205 IFM+A=M20RM+A=M3THENG=10s GDTQ1 098 

1220 IF«-MiANDG>OaRM=M4ANDG>OTHENN=N+20sKO=lÖ5GOT01098 
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i 229 I FM+A=H 1ANDG XM3RM+A-M4 AN0S >ÖTHENN-N+20 s KÖ= 1 s GOTO 1098 

1230 IFM+A?*M1QRM+A«M4ANDG<OTHEN200ÖO 

1240 XFM=M1QRM-M4ANDG<ÖTHEN20000 

1300 IFK0~1ÖTHENG0SUB70Ö0 

2000 K J- 1 NT ( RND U)*4)+l: PQKE36B77 ,0 

2010 IFKJ«1THENC«2 

2020 IFKJ=2THENC~-2 

2030 IFKa=3THENC«:-44 

2040 IFKJ^4THENC=44 

2041 POKEM, 2 

2045 IFPEEK<Mi+C)=OTHENC=0 

2050 POKEM 1 , 32 s M 1 -M 1 +C 5 POKEM 1,6s POKEM 1 +30720 , 3 
2Q90 K J 1 .=* INT (RND '< 1 ) «4 > + 1 
2110- IFKJ 1=1 THEND=1 
2120 IFKJ1=2THEND^-1 
2130 IFKJl=3tHEND^~22 
2140 IFKJ1=3THENB=22 
2145 IFPEEK<M2+D>=ÖTHEND-0 

2150 P0KEM2 , 32s M2=M2+D : P0KEM2 ,3 b PQKEM2+3Ö72Ü , 7 
2160 KJ2-INT (RND < i ) *4> +1 
2170 IFKJ2=1THENE^1 
2180 IFKJ2~2THENE«-1 
2190 IFK32?=3THENE=~22 
2200 IFKJ2-4THENE-22 
2205 tFPEEK (M3+E) ^OTHENE^O 

22 10 P0KEM3 * 32s M3=M3+E s P0KEM3 , 3 s POKEM3+30720 # 7 
2220 K33** I Nf < RND < t ) *4 > +1 
2230 IFKJ3=1THENF=2 
2240 IFKJ3~2THENF==-2 
2250 iFKJ3=3THENF«~44 
2260 IFKJ3=4THENF=*44 
2265 I FPEEK < M4+F ) =0THENF=0 
2270 PÖKEM4,32sM4=M4+FsP0KEM4,6:PaKEM4+3072Q,3 

5000 POKEM, 32s M=M*-As POKEM , 1 s G^S-1 5 P0KEM-J-30720 ,5s P0KE36877 - 135 

60ÖÖ SOTattöO ' 

7000 KO-0 s READB* s I FB*= * fc|" THENRESTORE 

7010 RETURN 

'10O0O DATA"iaSGM 1","ISÖGM 2«V»JS»BM 3%'»ÖBBM .4% M WßM 5 
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10001 

" t "fei" 
20000 

20003 
20005 
20O1O 
20020 
2003O 
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20045 
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20050 
20060 
30000 
300 IQ 
30020 
30040 
30050 
30060 
30070 
30080 
30090 



,"iiä3FK l'V'S^K 2%"iaBFK > 

DATA"iaETu i ■ , "iäsrrii 2" , M iaErru 3« , »lasru 4» , «jsbk>agh«' , «iässa t % >iagsA z» , »las-wc- 

FOR^iSTOOSTEP-* 2« P0KE36S78,F 

P0KE36878,B 

P0KE36S79» 9s POKEN, 7 

P0KE36879, 1ObP0KEM,S 

P0KE36Q79 , 1 1 s POKEM f 9 

PÖKE36879 , S: POKEM , 32 

NEXfP 

PPKE36878 , s P0KE36877 , s PÖKE36876 ,0 

ä9=PBBK (37137) : P0KE37 1 54 , 127 

IF < J9AND32) «OTHENRUN 

GOT020045 



<C> 1985 BY 
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Manuskripten und Datenträgern 
erteilt der Autor dem Verlag die 
Genehmigung zum Abdruck und 
Versand der veröffentlichten Pro- 
gramme auf Datenträger. Für die 
mit Namen des Verfassers ge- 
kennzeichneten Beiträge über- 
nimmt die Redaktion lediglich die 
presserechtliche Verantwortung. 
Alle in dieser Zeitschrift veröf- 
fentlichten Beiträge sind urheber- 
rechtlich geschützt. Nachdruck 
(auch auszugsweise) und Verviel- 
fältigung nur mit ausdrücklicher 
Genehmigung des Verlages. Für 
unaufgeforderte Einsendungen 
von Manuskripten, Tonträgern 
und Software wird keine Haftung 
übernommen. 
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Höhlen-Herbert 

Herbert ist ein Höhlenforscher, dem die Arbeit leider 

gar nicht leicht fällt 



Er hat gerade einen Höhlenkomplex 
mit vielen Schätzen entdeckt und muß 
feststellen, daß der Reichtum nur äu- 
ßerst schwierig zu bergen ist. Die 
Schätze sind nämlich über drei Etagen 
verteilt und nur durch Klettern und 
Springen zu erreichen. 
So sind die Etagen mit Leitern verbun- 
den, die in mehr oder minderer Zahl 
vorhanden sind. 

Die Etagen wiederum sind an einigen 
Stellen eingestürzt, was einen gewag- 
ten Sprung erforderlich macht. Damit 
aber nicht genug. Da gibt es nämlich 
noch ein garstiges Gespenst, das dem 
armen Forscher arg zusetzt, was seine 
Arbeit nicht gerade erleichtert. Hat 
Herbert nun endlich eine Höhle aus- 
geräumt, kann er sich aber nicht aus- 



ruhen. 

Nein, er muß sofort in eine neue, noch 
schwierigere Höhle, mit noch mehr 
Gefahren. 

So geht es weiter, bis die vierte Höhle 
gemeistert ist. Aber auch dann ist kein 
Feierabend, denn es geht wieder von 
vorne los. 

Nun taucht aber zu allem Übel auch 
noch ein zweites Gespenst auf, das 
dem armen Herbert auch nach dem 
Leben trachtet. 

Und auch damit nicht genug, denn es 
liegen noch Totenköpfe in den Gän- 
gen, bei deren Berührung Herbert lei- 
der eines seiner kostbaren drei Leben 
verliert. 

So vermehren sich auch die Einbrüche 
in den Etagen mit jeder vollendeten 



Runde. 

Andererseits hat Herbert auch gut la- 
chen, denn wenn er 5 000 Punkte er- 
reicht, bekommt er sofort ein Bonusle- 
ben geschenkt. Das auch bei 10 000, 
15 000... 

Im oberen Teil des Bildschirms wird 
ständig Highscore, Punktzahl, Leben 
und Level angezeigt. 
Wird das Programm gestartet, so 
braucht es anderthalb Minuten für die 
PM-Grafik und den neuen Zeichen- 
satz. Anschließend erscheint ein Aus- 
wahlbild und man kann Startbild und 
Schwierigkeitsgrad selbst wählen, 
START drücken und schon geht's los. 
Gespielt wird mit Joystick an Port 1, 
gesprungen wird durch Drücken des 
Feuerknopfes. 



Geschrieben und 

getestet auf 

ATARI 800 XL 



2 REM Hoehlen-Herbert 

3 REM <C> Boyd Krause 

5 REM 

6 REM 

10 GRAPHICS lsPOKE 710,0: POKE 705,23: PDKE 756,204: PQKE 752,1 

15 POSITION 5,3:? #6; "QULPE-SQFT" 

20 POSITION 16,5s? #6: "presents : " 

25 DL=PEEK ( 56Ö ) +256*PEEK < 56 1 ) " 

27 POKE DL+10,2sP0KE DL+12,7 

30 POSITION 3,8:? #6; "HOELEN-HERBERT " 

32. POSITION 3,11s? #6; " (c) boyd krause" 

34 POSITION 2,13:? #6; "HAMBURG FEB, 1985" 

35 ? " BITTE WARTEN" 

90 BILD=lsLE=3:PN=OsFU=OsBON=5000sLEV=0 
100 GOSUB 20000 
105 GOSUB 23000 
110 GOSUB 29000 
120 GXX=2 

490 IF BILD>4 THEN BILD=ls LEV=LEV+1 
495 IF BILD=1 AND LEV=1 THEN GOSUB 30000 
500 ON BILD GOSUB 5000,6000,7000,9000 
510 GQTQ 12250 

1000 A=STICK<0> :B=STRIG<0> s GOSUB 1100 
1002 IF B=0 THEN GÜSUB 2500: GOTO 11000 
1005 IF A=15 THEN 1000 

1010 IF A=7 THEN GOSUB 2500: X=X+4:C1=0: C2=I 2: GOTO 2000 
1015 IF A=ll THEN GOSUB 2500: X=X-4sCl=4:C2=16sGQTQ 2000 
1020 IF A=14 THEN GOSUB 2600: C1=B: C2=20: GOTO 2100 
1022 IF A=13 THEN GOSUB 2610s C 1=8:02=20: GOTO 2200 
1090 GOTO 1000 

1100 IF A=15 THEN FQR PAUSE=1 TO 30~LEV*2:NEXT PAUSE 

1101 IF Y=90 AND X=GX THEN 12150 

1102 IF LEV>0 AND Y=62 AND X=6X2 THEN 12150 
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1104 GX=GX+GXXsGX2=202-GX 

1105 IF GX<20 0R 6X>200 THEN GXX=-GXX 

1107 IF X>GX AND Y>BO THEN GXX=2sG0TÜ 1110 

1108 IF Y>80 THEN GXX=-2 

lllO PQKE H0+2,GXsIF Y=9Ö AND X=GX THEN 12150 

1115 IF LEV=0 THEN RETURN 

1120 PQKE H0+3,GX2sIF Y=62 AND X=GX2 THEN 12150 

1200 RETURN 

2000 POKE PA,AF+ClsFQR 1=0 TG 5s SOUND 0,100+1,10, 

2002 IF X>200 THEN X=44 

2003 IF X<44 THEN X=20Q 

2005 POKE HO, X: POKE HO+l,XsPOKE PA,AF+C2sFGR 1=0 

SQUND 0,0,0,0 

2010 LOCATE X/4-11 ,Y/4~1 . 5,GE 

2020 IF GE>32 AND GE<164 THEN GOSUB 4000 

2099 GOTO 10O0 

2100 POKE PA,AF+Cls SOUND 0,200,10,8 
2110 BA=(AF)*256sAB=<AF+12>*256 
2115 FOR 1=0 TO 3 

2117 IF 1=1 THEN SOUND 0,0,0,0 

2118 IF 1=3 THEN SOUND 0,180,10,8 
2 1 20 B=USR < UP , BA+639+ Y- 1 ) 
2125 B=USR<UP,BA+512+Y-I) 
2130 B=USR<UF,AB+639+Y-I> 
2135 B=USR(UP,AB+512+Y-I) 
2140 B=USR(UP,BA+1660+Y-I) 
2145 B=USR(UP,AB+1660+Y-I) 
2150 B=USR(UP,BA+1534+Y-I) 
2155 B=USR<UP,AB+1534+Y-I) 
2160 B=USR<UP,BA+2685+Y-I> 
2 1 65 B=USR ( UP , AB+2685+Y- I ) 
2 1 70 B=USR ( UP , BA+2558+Y-I ) 
2175 B=USR<UP,AB+255S+Y-I) 
2177 IF 1=1 THEN POKE PA,AF+C2 
2180 NEXT I s SOUND 0,0,0,0 
2185 Y=Y~4 
2190 GOTO 10O0 



2200 
2210 
2215 
2217 
2218 
2220 
2225 
2230 
2235 
2240 
2245 
22SO 
2255 
2260 
2265 
2270 
2275 
2277 
2280 
2285 
2290 
2500 
2505 
2510 
2520 



8s NEXT Is SOUND 0,0,0,0 



TO 5s SOUND 0,200+1, 10, 8s NEXT Is 

POKE PA,AF+Cls SOUND 0,200,10,8 

BA= <AF) *256: AB= (AF+12) *256 

FOR 1=0 TO 3 

IF 1=1 THEN SOUND 0,0,0,0 

IF 1=2 THEN SOUND 0,180,10,8 

B=USR ( DO , BA+639+Y+ I ) 

B=USR ( DO , B A+5 1 2+Y+ I ) 

B=USR ( DQ , AB+639+Y+ I ) 

B=USR ( DO , AB+5 1 2+ Y+ I ) 

B^USR ( DO , B A+ 1 660+ Y+ I ) 

B=USR ( DO , AB+ 1 660+Y+ I ) 

B=USR < DO , BA+ 1 534+ Y+ 1 ) 

B=USR ( DO , AB+ 1 534+ Y+ I ) 

B=USR ( DO , BA+2685+ Y+ I ) 

B=USR ( DO , AB+26B5+Y+ I ) 

B=USR <D0 , BA+2558+Y+I ) 

B=USR ( DO , AB+2558+Y+ I ) 

IF 1=1 THEN POKE PA,AF+C2 

NEXT Is SOUND 0,0,0,0 

Y=Y+4 

GOTO 1000 

IF Y=34 THEN RETURN 

IF Y=62 THEN RETURN 

IF Y=90 THEN RETURN 

POP sGOTO 1OO0 



260O LOCATE X/4-1 1 ,Y/4-l„5,AAs IF AA=165 THEN RETURN 

2605 POP s GOTO 1000 

2610 LOCATE X/4-1 1 ,Y/4-0.5,AA: IF AA=165 THEN RETURN 

2615 POP sGOTO 1000 

40OO IF GE<>97 AND GE<>98 THEN 4100 

4002 IF GE=97 THEN RETURN 

4005 PU=PU+50s PN=PN+50 

4010 FÜR 1=0 TO 10 

4015 SOUND 0,200-1*10,10,10 

4020 NEXT Is SOUND 0,0,0,0 

4040 GOSUB 10000s GOSUB 5100 

4045 RETURN 

410O IF GE=101 OR GE=102 THEN 12000 

4110 GOTO 12150 

5000 GRAPHICS 12+16sP0KE PA, AF: POKE 559,46s POKE 756, NZs POKE 710,215s POKE 709,74s 
PQKE 708, 26s POKE 71 1,55s POKE 77,0 

5001 POKE 706, 123s POKE H0+2,200sGX=200 

5002 POKE 705,84s POKE 704,42 

5005 RESTORE 231 15s FOR 1=0 TO IsREAD As FOR J=0 TO 7s READ BsPOKE NZ*256+A*8+J,BsN 
EXT J s NEXT I 

5009 CDLOR 33s PLOT 0,8sDRAWT0 39,8s PLOT 0,15sDRAWT0 39,15sPL0T 0,22s DR AWTO 39,22 

5010 COLOR 35sPL0T 0,2sDRAWT0 39,2s PLOT 0,9sDRAWT0 39,9sPL0T O,16sDRAWT0 39,16 
5013 COLOR 1 65s PLOT 9,8 sDRAWTO 9,14sPL0T 30,15sDRAWTO 30,21 
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5014 C0L0R 164sPL0T 8,8:DRAWTa B,14:PLGT 29,15: DRAWTQ 29,21 

5015 POSITION 22, Bs? #6;CHR* (40) ; " "sCHR*(62> 

5016 POSITION 22,9:? #6;CHR*(41) : " ";CHR*(60> 
5018 A=6:F0R 1=0 TD 2 

5020 POSITION 0,As? #6jCHR* (1) :CHR*(2) : POSITION 3B,As? #6; OHRS (6) ;CHR*(5) 

5021 POSITION 0,A+1:? #6;CHR*(3) :CHR* (4) : POSITION 38,A+ls? #6:CHR*<8> :CHR*<7) 
5025 A=A+7:NEXT I 

5027 POSITION 23,7:? #6;CHR* (101 ) ;CHR$U02) : POSITION 14,14:? #6s.CHR$<101> ;CHR*(1 

02) 

5030 POSITION 13,15:? #6;CHR#(40) s " M ;CHR*(62> 

5035 POSITION 13,16:? #6$CHR*<41> 5 " ":CHR*(60) 

5041 RESTORE 5200 

5042 READ A,Bs IF A<0 THEN 5050 

5045 POSITION A,B:? #6;CHR$(97> ;CHR*(98> :B0TO 5042 

5050 IF LEV>0 THEN A=14:B=7: GOSUB 9000 

5060 IF LEV>1 THEN A=25:B= 14s GOSUB 9100: A=34s B=7:G05UB 9100 

5070 IF LEV>2 THEN A=15:B=7: GOSUB 9100 

5080 IF LEV>3 THEN A=22:B=14: GOSUB 9000: A=32: B=14: GOSUB 9100 

5100 IF PU>=BON THEN B0N=B0N+5000:LE=LE+1: GOSUB 15000s REM BONUS LEBEN 

5101 IF PU>HI THEN HI=PU 

5102 POSITION 5,0:? #6; "HIGH s "; HI a POSITION 2O,0s? #6; "LEBEN "3LE 
5105 POSITION 5,1s? #63 "SCORE : ";PU: POSITION 20,1:? #6; "LEVEL :";LEV 
5110 IF PN=850 THEN PN=0:BILD=BILD+1:P0P :GOTO 490 

5200 DATA 3,7,6,7,12,7,18,7,25,7,30,7,2,14,5,14,12,14,17,14,24,14,31,14,3,21,10, 

21,15,21,34,21,25,21,-1,-1 

5999 RETURN 

6000 GRAPHICS 12+16: POKE PA,AF:FQKE 559,46: POKE 756,NZ:P0KE 710,10sP0KE 709,29: P 
OKE 708,215: POKE 71 1,162: POKE 77,0 

6001 POKE 706,123: POKE H0+2,200:GX=200 

6002 POKE 705, 20: POKE 704,42 

6005 RESTORE 23157:F0R 1=0 TO 1:READ A:FOR J=Ö TO 7: READ BsPOKE NZ*256+A*B+J,B:N 
EXT J:NEXT I 

6010 COLOR 163:PL0T 0,2:DRAWT0 39,2 

6011 CQLQR 17O:F0R 1=1 TO 39 STEP 2s PLOT I,8sPL0T I,15:PL0T I,22:NEXT I 

6012 COLOR 174: FOR 1=1 TO 39 STEF 2sPL0T I,9sPL0T I,16:NEXT I 

6015 COLOR 171s FOR 1=0 TO 38 STEP 2sPL0T I,8sPL0T I,15sPLQT I,22:NEXT I 

6016 COLOR 172: FOR 1=0 TO 38 STEP 2s PLOT I,9sPL0T I,16:NEXT I 

6017 COLOR 164s PLOT 27,8:DRAWT0 27,14:PL0T 4,15:DRAWT0 4,21 
601Ö COLOR 165: PLOT 28,8s DRAWTO 28, 14: PLOT 5,15:DRAWT0 5,21 

6020 POSITION 0,13;? #6; CHR* (1) ;CHR*(2) : POSITION 38,13:? #6jCHR*(6) ;CHR*(5> 

6021 POSITION 0,14:? #6; CHR* <3> ;CHR$ (4) s POSITION 38,14s? #6:CHR*<8> ;CHR*(7> 

6039 POSITION 0,20:? #6;CHR*(1) ;CHR*(2> : POSITION 38,20:? #6sCHR* <6> sCHR*<5) 

6040 POSITION 0,21:? #6;CHR$ (3) ;CHR*(4) 5 POSITION 38,21s? tt6;CHR$(B) ;CHR*<7) 
6050 RESTORE 6100 

6060 READ A,B:IF A<0 THEN 6070 

6065 POSITION A,B:? #6;CHR$(97> 5CHR* (98) sßOTO 6060 

6070 READ A,BsIF A<0 THEN 6100 

6080 GOSUB 92O0:G0TD 6070 

6100 DATA 3,7,6,7,18,7,25,7,34,7,5,14,9,14,12,14,17,14,24,14,30,14,34,14 

6105 DATA 10,21,16,21,22,21,27,21,34,21,-1,-1 

6110 DATA 0,7,13,7,31,7,38,7,-1,-1 

6200 IF LEV>0 THEN A=20:B=14: GOSUB 9200 

6210 IF LEVM THEN A=32s B=l 4s GOSUB 9000 

6225 IF LEV>2 THEN A=14:B= 14: GOSUB 9200: A=7:B=21: GOSUB 9000 

6235 IF LEV>3 THEN A=22:B=7: GOSUB 9200: A=30:B=21 : GOSUB 9000 

6850 GOSUB 5100 

6900 RETURN 

7000 GRAPHICS 12+16: POKE PA, AF: POKE 559, 46: POKE 756, NZ: POKE 710,20s POKE 709,29: P 
OKE 708, 215: POKE 711, 106: POKE 77,0 

7001 POKE 706, 123: POKE HO+2 , 200 : GX=200 

7002 POKE 705, 84: POKE 704,42 

7003 RESTORE 2316B:F0R 1=0 TO 1:READ As FOR J=0 TO 7: READ B: POKE NZ*256+A*8+J,B:N 
EXT J:NEXT I 
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7004 COLOR 17isF0R 1=0 TO 3B STEP 2sPL0T I,8sPL0T I,15sNEXT I 

7005 CDLQR 170s FÜR 1 = 1 TO 39 STEP 2s PLOT I,8:PL0T I,15sNEXT I 

7006 COLOR 172sF0R 1=0 TD 38 STEP 2sPL0T I,9:PLDT I,16sNEXT I 

7007 COLOR 174: FOR 1=1 TO 39 STEP 2s PLOT I,9:FL0T I,16sNEXT I 

7008 COLOR 35:PL0T 0,2s DRAWTO 39,2s PLOT 0,llsPLOT 39,11 

7009 COLOR 33sPL0T 0,2sDRAWT0 0,10sPLÜT l,2sDRAWT0 l,8sPL0T 2,2sDRAWT0 2,5:PL0T 
3,2s PLOT 19,2s DRAWTO 19,22 

7010 PLOT 20,2s DRAWTO 20,22s PLOT 39,2s DRAWTO 39, 10s PLOT 38,2s DRAWTO 38 -8s PLOT 37 
,2s DRAWTO 37,5s PLOT 36,2 

7012 PLOT 0,16s DRAWTO 0,22sDRAWT0 39,22sDRAWT0 39,16 

7015 COLOR 164sPL0T 7,8:DRAWTÜ 7,14:PLQT 27,85DRAWT0 27,14:PL0T 6,15:DRAWT0 6,21 

sPLOT 30, 15s DRAWTO 30,21 

7020 COLOR 165s PLOT 8, 8s DRAWTO 8, 14s PLOT 28,8s DRAWTO 28, 14s PLOT 7, 15s DRAWTO 7.21 

sPLOT 31^ 15s DRAWTO 31,21 

7028 POSITION 0,13s? #6;CHR* (1) ;CHR*<2) 5 POSITION 38,13s? #6;CHR* (6) ;CHR*<5) 

7029 POSITION 0,14s? #6 5 CHR*<3> ;CHR*<4> sPOSITION 38,14s? #6;CHR*<8> 5 CHR* <7> 
7050 COLOR 62SPL0T 19,11:DRAWT0 19,21sPL0T 38,16=DRAWT0 38,21 

7055 COLOR 40s PLOT 20,llsDRAWT0 20,21sPL0T 1,16:DRAWT0 1,21 

7100 RESTORE 7200s COLGR 40 

7105 READ A,BsIF A<0 THEN 7120 

7110 PLOT A,BsGOTO 7105 

7120 COLOR 41 

7122 READ A, B: IF A<0 THEN 7130 

7125 PLOT A,BsGOTO 7122 

7130 COLOR 60 

7132 READ A,B$IF A<0 THEN 7140 

7135 PLOT A,B:GOTO 7132 

7140 COLOR 62 

7142 READ A,BsIF A<0 THEN 7150 

7145 PLOT A.BsGOTO 7142 

7150 READ A,BsIF A<0 THEN 7160 

7155 POSITION A,Bs? #6;CHR*<97> 5CHR* <98> sGQTQ 7150 

7160 READ A,Bs IF A<0 THEN GOTO 7170 

7165 BQSUB 9200 s GOTO 7160 

7170 IF LEV>0 THEN A=10sB=*14s GOSUB 9000 

7175 IF LEV>1 THEN A=24:B=14: GOSUB 9200 

7180 IF LEV>2 THEN A=34sB=l 4s GOSUB 9200 

7200 DATA 3,3,21 ,3,3,4,21 ,4,3,5,2,6,20,6,20,7,21 ,8, 1 ,9,21 ,9, -1 ,-i 

7250 DATA 21,5,2,7,1,10,21,10,-1,-1 

7300 DATA 18,5,36,5,37,7, 18, 10, 3B, 10,-1 ,-1 

7350 DATA 18,3,36,3, 18,4,36,4, 19,6,37,6, 19,7, 18, B, 18,9,38,9,-1 ,-1 

7400 DATA 4,7,13,7,16,7,22,7,25,7,34,7,2,14,5,14,15,14,22,14,31,14,3,21,8,21,14, 
21,23,21,27,21,34,21,-1,-1 * ' ' 

7450 DATA 10,7,31,7,-1,-1 
7950 GOSUB 5100 
7960 RETURN 

8000 GRAPHICS 12+16sP0KE PA,AFsPOKE 559,46sP0KE 756,NZsP0KE 710,132sP0KE 709,255 
sPOKE 708, 199: POKE 711,199 

8001 POKE 706,123sP0KE HQ+2,200sßX=200 
B002 POKE 705,84s POKE 704,42s POKE 77,0 

8005 RESTORE 23170s FOR 1=0 TO IsREAD As FOR J=ö TO 7s READ BsPOKE NZ*256+A*8+J,BsN 

EXT JsNEXT I 

B006 COLOR 35s PLOT 0,2s DRAWTO 39,2 

B007 CDLQR 



TO 



171sF0R 1=1 

8008 COLOR 170s FOR 1=0 TO 33 

8009 COLOR 174: FOR 1=0 TO 33 

8010 COLOR 172s FOR 

53: PLOT 



1 = 1 



1 STEP 2s PLOT I, 8s PLOT I,15sNEXT I 

STEP 2s PLOT I, 8s PLOT I,I5sNEXT I 

STEP 2: PLOT I, 9s PLOT I,16:NEXT I 

TO 31 STEP 2s PLOT 1, 9s PLOT I,16sNEXT* I 

DRAWTO 0,2s DRAWTO 0,22s DRAWTO 39,22s DRAWTO 39,2s DRAWTO 36 
,2s PLOT 3,8s DRAWTO 7,8 

8012 PLOT 16, Bs DRAWTO 23,8s PLOT 33,8s DRAWTO 36, Ss PLOT 3,9: DRAWTO 6, 9s PLOT 17,9s D 
RAWTO 22,9s PLOT 34,9s DRAWTO 36,9 

8013 PLOT 3,10sPL0T 18,10:DRAWT0 22,10sPL0T 36,!OsPLOT 19,14sPL0T 20, 14s PLOT 3,1 
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5s DRAWTO 6, 15: PLOT 20, 11: PLOT 21,11 

8014 PLOT I9,15sPL0T 2ö,15sPL0T 34, 15s DRAWTO 39,15:PL0T 3,I6:DRAWT0 5,16:PL0T 18 
,16: DRAWTO 21 ,16s PLOT 38, 16: PLOT 39,16 

8015 PLGT 3,17sPL0T 4,17:PL0T 1B,17:DRAWT0 2i,17sPL0T 3S,17sPL0T 39,17sPL0T 19,1 
8s PLOT 20, 18s PLOT 19, 19s PLOT 20,19 

8016 PLDT 19,20sPL0T 2Ö,20sPLOT 18,21:DRAWT0 21,21 

8019 COLOR 164s PLOT 1,3: DRAWTO 1,21s PLOT 37,3s DRAWTO 37, 14s PLOT 31,15sDRAWT0 31, 

8020 COLOR 165s PLOT 2,3: DRAWTO 2,21s PLOT 38,3s DRAWTO 38, 14s PLOT 32, 15s DRAWTO 32, 
21 * 

8100 RESTORE 8200s COLOR 40 
8105 READ A,BsIF A<0 THEN 8110 
8107 PLOT A,BsG0TO 8105 
8110 CQLOR 41 

8115 READ A,BsIF A<0 THEN 8120 
8117 PLOT A,B:80T0 8115 
8120 CQLOR 60 

8125 READ A,Bz IF A<0 THEN 8130 
8127 PLOT A,BsGOTO 8125 
8130 COLOR 62 

8135 READ A,Bs IF A<0 THEN 8140 
8137 PLOT A,BsG0TO 8135 
8140 READ A,BsIF A<0 THEN 8190 

8145 POSITION A,Bs? #6;CHR*(97) ;CHR*(98) :GOTG 8140 
8190 A=12:B=I4sSQSUB 9200s A=26s B= 14; GOSUB 92O0 
8195 IF LEV>1 THEN A=2Bs B=7sG0SUB 9200 
8197 IF LEV>3 THEN A=15sB=7sG0SUB 9000 

8200 DATA 3,3,3,4,24,8,7,9,23,9,4,10,23,10,3,11,21,12,21,13,7,15,21,15,6,16,22,1 
6,5,17,22,17,21,18,21,19,21,20 
8210 DATA -1,-1 

8250 DATA 3,5,22,11,21,14,22,21,-1,-1 

B300 DATA 36,5,15,8,16,9,33,9,18,10,35,10,19,11,36,11,18,14,33,15,37,16,37,17,38 
,18,38,19,38,20,38,21,18,20,17,21 
8310 DATA -1,-1 

B35Ö DATA 36,3,36,4,20,12,20,13,18,15,17,16,18,17,18,18,18,19,-1,-1 

8400 DATA 4,7,8,7,12,7,18,7,24,7,31,7,5,14,10,14,14,14,22,14,29,14 

8410 DATA 4,21,8,21,15,21,22,21,28,21,34,21 

8420 DATA -1,-1 

8950 BOSUB 51O0 

8960 RETURN 

9000 POSITION A,Bs? #6;CHR$ (99) ;CHR^( 100) s RETURN 

91O0 POSITION A+l,Bs? #6; CHR*( 101) 5 CHR$( 102) s POSITION A,B+ls? #6;CHR*<40) 5 " ":C 

HR* (62) 

9110 POSITION A,B+2s? #6; CHR£ (41) 5 " "5CHR* (60) s RETURN 

9200 POSITION A,Bs? #65 CHR* (101 > ;CHR*( 102) : POSITION A,B+ls? #6;" "sPOSITION A,B 

+2s? #6;" "s RETURN 

1000O POSITION X/4-12,Y/4-1.5s? #6;" 

10010 RETURN 

11000 PQKE PA,AF+C1 

11090 BA=(AF+C1)*256 

11095 FOR J=0 TO 1 

11100 FOR 1=0 TO 3 

11110 B=USR(UP,BA+620+Y~I) 

11115 B=USR(UP,BA+512+Y-I) 

11117 SOUND 0,100-I#10,10,8 

11120 NEXT I:Y~Y-4 

11122 GDSUB 1100 

11123 IF A=ll THEN X=X-4s IF X<44 THEN X=44 

11124 POKE HO, X 5 POKE H0+1,X 

11125 IF A=7 THEN X=X+4s IF X>200 THEN X=200 

11126 POKE HO, Xs POKE H0+1,X 

11127 NEXT JsFOR J=0 TO 1 
11130 FOR 1=0 TO 3 
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11135 B=USR<D0,BA+620+Y+I> 
11140 B=USR(D0,BA+512+Y+I> 
11142 SOUND 0,70+1*10,10,8 

11145 NEXT I:Y=Y+4 

11146 80SUB 1100 

11147 IF A=ll THEN X=X-4: IF X<44 THEN X=44 

11148 PQKE HO,X:PQKE H0+1,X 

11150 IF A=7 THEN X=X+4s IF X>2GO THEN X=200 

11151 FOKE HO, X: PQKE H0+1,X 
11155 NEXT J: SOUND 0,0, 0,0 

11999 BOTO 2010 

12000 POKE PA,AF+C1 
12090 BA=(AF+C1)*256 
1213Ö FOR 1=0 TO 27 
12135 B=USR<D0,BA+620+Y+I> 
12140 B=USR<D0,BA+512+Y+I> 
12142 SOUND 0,100+1*3,10,15 
12145 NEXT IsY=Y+2S 
12147 SOUND 0,0,0,0 

12150 POKE HO,OsPOKE HO+1,0 

12151 LOCATE X/4-12, Y/4-1 . 5 , ALT 1 : LOCATE X/4-11 , Y/4-1. 5, ALT2 
12153 LOCATE X/4-12, Y/4-2. 5, ALT3: LOCATE X/4-11 , Y/4-2. 5, ALT4 
12155 POSITION X/4-12, Y/4-1. 5s? #6; n xy" 
12160 POSITION X/4-12, Y/4-2. 5;? #6g n »jr n 
12170 FOR 1=0 TO 7sS0UND 0,0+1*10,8, lSsNEXT I 
12175 POSITION X/4-12, Y/4-1. 5:? #6;"uk" 
12180 POSITION X/4-12, Y/4-2. 5s? #6; "st" 
12190 FOR 1=7 TO 14: SOUND 0,0+1*10,8, 15: NEXT I 
12195 POSITION X/4-12, Y/4-1. 5s? #65 "qr" 

12200 POSITION X/4-12, Y/4-2. 5:? #6;CHR$CALT3> 5CHR* (ALT4) 
12220 FOR 1=14 TO 21s SOUND 0,0+1*10,8, 15s NEXT I 
12225 POSITION X/4-12, Y/4-1 .5:? #65 CHR$ (ALT1 ) ;CHR*(ALT2) s SOUND 0,0, 

12227 IF GEO101 AND GEO102 THEN 12249 

12228 FOR 1=0 TO 27 
1 2230 B-USR ( UP , B A+620+ Y- I > 
12232 B=USR(UP,BA+512+Y-I) 
12234 NEXT IsY=Y-28 

12249 LE=LE-1 

12250 IF Y=34 THEN D0WN=55 
12252 IF Y=62 THEN DQWN=27 
12255 IF Y=90 THEN 12291 
12260 FOR J=0 TO 20 STEP 4 
12265 BA=<AF+J)*256+i 
12270 FOR 1=0 TO DOWN 
12275 B=USR<D0,BA+620+Y+I) 
12280 B=USR(D0,BA+512+Y+I> 
12285 NEXT I 

12290 NEXT JsY=Y+DOWN+l 

12291 X=100sP0KE HO, Xs POKE H0+1,X 
12300 GOSUB 5100 
12305 IF LE<=0 THEN 19000 
12310 FOR 1=0 TO 2 

12315 SOUND 0,200, 10, 8s SOUND 1,201,10,8 
12320 FOR J=0 TO 5s NEXT J 
12325 SOUND O, 150, 10,8s SOUND 1,151,10,8 
12330 FOR J=0 TO 5s NEXT J 
12340 NEXT I 

12350 SOUND O,0,0,0sS0UND 1,0,0,0 
12410 GXX=-2sGX=200sGE=32:GOTO 1000 
15000 FOR J=0 TO 2 

15005 SOUND 0,150, 10, lOsSOUND 1,151,10,9 
1501O FOR 1=0 TO 5s NEXT I 
15015 SOUND 0,100, 10, 10: SOUND 1,101,10,9 
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ZZZ" 

Z" 

ZZZ" 

Z" 
Z ZZZ" 
ZZZ ZZZ" 



ZZZ ZZZZ" 



1502O FOR 1=0 TO 5:NEXT I 

15025 NEXT J 

15027 SOUND 0,80,10, lOsSQUND 1,81,10,9 

15030 FOR 1=0 TQ 5s NEXT I 

15035 SOUND O, 100, 10, 10s SOUND 1,101,10,9 

15040 FÜR 1=0 TG 5s NEXT I 

15045 SOUND O, 150, 10, lOs SOUND 1,151,10,9 

15050 FÜR 1=0 TG 5s NEXT I 

15135 SOUND 0,0,0,OsSOUND 1,0,0,0 

15140 RETURN 

19000 POSITION 2,5s? #6; "ZZZZ ZZZ Z Z 

19005 POSITION 2,6s? #6; "Z Z Z ZZ ZZ 

19010 POSITION 2,7s? #6; "Z ZZ ZZZ ZZZZZ 

19015 POSITION 2,8s? #6;"Z Z Z Z Z Z Z 

19020 POSITION 2,9s? #6s"ZZZZ ZZZ Z 

19025 POSITION IS, 11s? #6$ "ZZZZ Z Z 

19030 POSITION 18,12s? #6;"Z Z Z Z 

19035 POSITION IS, 13s? #6;"Z Z Z Z 

19040 POSITION 18,14s? #6;"Z ZZZZ Z Z" 

19045 POSITION 18,15s? #6; "ZZZZ Z ZZZ Z Z" 

19050 POSITION 10,18s? #6; "PRESS FIREBUTTON TO PLAY":POKE 764,255 

19950 A=USR(1544) 

19970 BILD=1 s LE=3s LEV=0s PN=Os PU=0 

19980 PDP sGOTO 110 

19999 END 

20000 GOSUB 21000s GOSUB 21500s AF=PEEK( 106) -36 
20010 X=100sY=90 

20015 DIM RK4) 

20020 FÜR 1=1 TO 4 * 

20025 RI (I)=AF+(I-1)*4 

20030 NEXT I 

20040 RESTORE 22500 

20045 FOR 1=1 TQ 3 

20050 FOR J=RI ( I ) *256+512+Y TO RI ( I > *256+512+Y+14 

20055 READ AsPOKE J, As NEXT 3 

20060 FOR J=RI (I) *256+640+Y TO RI (I >*256+640+Y+14 

20065 READ AsPOKE J, As NEXT J 

2007O FOR J=(RI (I ) +12) *256+512+Y TO (RI ( I) +12>*256+512+Y+14 

20075 READ AsPOKE J, As NEXT J 

20080 FÜR J=(RICI)+12)*256+640+Y TO (RI ( I) +12) *256+640+Y+14 

20085 READ AsPOKE J, As NEXT J 

20090 NEXT I 

20091 FOR 1=1 TO 3 

20092 FOR J=RI ( I ) *256+768+Y TO RI (I) »256+768+ Y+14 
20094 READ AsPOKE J, AsPOKE J+ 1 2*256, A: NEXT J 
20096 NEXT I 

20100 PA=54279sF0KE PA,AF 

20105 POKE 704,44s POKE 559,46s POKE 53277,3s POKE 623,2s PQKE 705,161 

20110 H0=5324B 

20115 POKE HO, Xs POKE H0+l,Xs? #6;CHR*(125) 

20120 ? CHR*(125);" <~ — Das ist Herbert" 

2080O POKE 752,1s POSITION 1,10s? #6; "ES GEHT GLEICH LOS " 

20900 RETURN 

21O0O DIM UP*(21)sUP=ADR(UP*) 

21005 RESTORE 22000 

21010 FOR I=UP TO UP+20sREAD BsPOKE I,BsNEXT Is RETURN 

21500 DIM D0*(21)sD0=ADR(D0*) 

21505 RESTORE 22100 

21510 FOR I=DO TO D0+20sREAD BsPOKE I,BsNEXT Is RETURN 

22000 DATA 104,104,133,204,104,133,203,160,1,177,203,136,145,203,200,200,192,96, 

208,245,96 

22100 DATA 104,104,133,204,104,133,203,160,97,177,203,200,145,203,136,136,192,25 
5,208,245,96 
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Die neue 

Computer-Klasse 

ven Atari 



Die Verkaufszahlen der vergange- 
nen Monate haben gezeigt, daß die 
optimistischen Prognosen eines 
ungebremst wachsenden Marktes 
für Heim- und Personal-Computer 
nicht mehr ganz stimmen sollen. 
Das anerkannte Marktberatungs- 
Unternehmen Diebold prognosti- 
ziert auf Grund der neuen Daten 
für 1985 in der Bundesrepublik 
den Verkauf von etwas mehr als 
einer halben Million Heim-Com- 
putern und etwa 220 000 Perso- 
nal-Computern. 

Nach Einschätzung der Marktforscher 
wird sich der Wert für Heim-Compu- 
ter bei rund einer halben Million ver- 
kauften Geräten für die kommenden 
zwei bis drei Jahre einpendeln, wäh- 
rend die Zahlen für Personal-Compu- 
ter langsam ansteigen und etwa 1988 
bei rund 300 000 jährlich verkauften 
Geräten liegen werden. Der Ge- 
schäftsführer der Atari-Deutschland, 
Alwin Stumpf, sieht die Zukunft dage- 
gen optimistischer: „Mit der Einfüh- 
rung der neuen Atari- Leistungsklasse, 
dem 130 XE Heim-Computer mit 128 
Kilobyte Arbeitsspeicher und dem 520 
ST Personal- Computer mit 520 Kilo- 
byte Arbeitsspeicher bietet Atari ein 
bisher unerreicht günstiges Preis/Lei- 
stungs-Verhältnis. Durch diese An- 
passung auf die Wünsche und Erwar- 
tungen unserer Kunden wird der 
Markt neue Impulse bekommen. Wir 
bei Atari rechnen mit deutlich höhe- 
ren Stückzahlen in beiden Produktbe- 
reichen. 1 ' 

Atari will sein sehr gutes Standbein im 
Bereich der Heim-Computer mit dem 
130 XE zusätzlich zum bewährten 
800 XL, der weiter produziert und 
verkauft werden wird, weiter festigen. 

Eine Maxime von Atari ist, mehr Lei- 



22500 DATA 0, 0,0, 62*123, 60, O, 24 ,24 ,.48,40* 1 , 199,238,0 

22501 DATA 0,56,63,0,0,0,60, 102, 102,78,66, 126,56,0,0 

22502 DATA 0,0,62,123,60,0,24,24,12,7,0,0,124,124,0 

22503 DATA 56,63,0,0,0,60, 102,102, U4, 120,126, 126, 
56,0,0 

22504 DATA 0,0,0,124,222,60,0,24,24,12,60,128,227,119 

22505 DATA 0,0*28,252,0*0,0,60,102,102,114,66,126,28,0 

22506 DATA 0,0,0,124,222,60,0,24,24,48,224,0,0,62,62,0 

22507 DATA 28,252,0,0,0,60,102, 102,30, 126,126, 126, 2B,Ö 

22508 DATA 0,0,0,126,126,60,0,0,66,66,64,64,0,126,14 

22509 DATA 0,60,60,0,0,0,60,126,60,60,62,62,126,0,0,0 

22510 DATA 0,0,126,126,60,0,0,66,66,2,2,0,126,112,0 

22511 DATA 60,60,0,0,0,60,126,60,60,124,124,124,0,0,0 

22512 DATA 0,0,0,0,0,0,66,165,24,126,219,235,102,0,0 

22513 DATA 0,0,0,0,0,0,66,165,24,126,219,255,102,0,0 

22514 DATA 0,0,0,0,0,0,66, 165,24, 126,219,255,102,0,0 
23000 NZ=PEEK<1Ö6>-12 

23005 SP=NZ*256 

23007 RESTQRE 23100 

23010 READ As IF A<0 THEN RETÜRN 

2302O FOR I«0 TO 7s READ BsPOKE SP+A*8+I ,B:NEXT I 

23030 GOTO 23010 

23100 DATA 1,255,251,127,255,247,255,191,255 

23101 DATA 3,223,255,247,252,252,44,60,43 

23102 DATA 29,0,0,0,0,255,251,223,255 

23103 DATA 4,192,255,255,192,192,192,192,192 

23104 DATA 5,3,255,255,3,3,3,3,5 

23105 DATA 51,252,204,192,252,12,204,252,0 

23106 DATA 35,252,204, 192,192, 192,204,252,0 

231 07 DATA 47 , 252 ,204 , 204 , 204 ,204 , 204 , 252 , 

23108 DATA 50,252,204,204,252,240,204,204,0 

23109 DATA 37,252,192,192,240,192,192,252,0 

23110 DATA 40,204,204,204,252,204,204,204,0 

23111 DATA 41,252,48,43,48,48,48,252,0 

23112 DATA 44,192,192,192,192,192,192,252,0 

23113 DATA 54,204,204,204,204,204,48,48,0 

23114 DATA 26,0,0,48,48,0,48,48,0 

23115 DATA 97,0,10,41,170,1,1,1,1 

23116 DATA 98,0,160,168,154,64,64,64,64 

23117 DATA 16, 252, 204, 204, 204, 2Q4, 204,252,0 

23118 DATA 17, 48, 240, 48, 48, 48, 48, 252,0 

231 19 DATA 18 , 252 , 204 , 12 , 252 , 192 , 204 , 252 , Ö 

231 20 DATA 19,252,204,12,60,12,204,252,0 

23121 DATA 20, 12,204,204,204,252, 12, 12,0 

231 22 DATA 21 ,252 , 204 , 192 ,252 , 12 ,204 , 252 ,0 

23123 DATA 22,252,204,192,252,204,204,252,0 

23124 DATA 23,252,204,12,12,12,12,12,0 

23125 DATA 24,252,204,204,252,204,204,252,0 

23126 DATA 25,252,204,204,252,12,12,252,0 

23127 DATA 39,252,192,192,204,204,204,252,0 

23128 DATA 99,10,42,34,34,42,10,2,2 

23 129 DATA 1 OO , 1 60 , 1 68 , 136 , 136 , 1 68 , 160 , 1 28 , 1 28 

23130 DATA 101,0,0,0,0,0,0,0,0 

23131 DATA 102,0,0,0,0,0,0,0,0 

23132 DATA 8,252,255,255,252,240,240,252,240 

23133 DATA 9, 176, 192, 192,208,192, 192,0,0 

231 34 DATA 30 , 59 , 1 27 , 255 ,15 , 59 , 255 , 47 , 63 

23135 DATA 28,63,13,63,15,3,3,0,0 

23136 DATA 122,240,243,252,252,255,240,223,255 

23 1 37 DATA 12 1 , 1 92 , 243 , 1 95 , 204 , 240 , 1 95 , 252 ,240 

23138 DATA 120, 48 »12, 3,27, 3, 195 ,51, 31 

23139 DATA 119,63,207,15,195,51,15,15,63 

23140 DATA 115,0, 128,0,3,27,15,67,15 
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23141 


DATA 


23142 


DATA 


23143 


DATA 


23144 


DATA 


23145 


DATA 


23146 


DATA 


23147 


DATA 


23148 


DATA 


23149 


DATA 


23 ISO 


DATA 


23151 


DATA 


23152 


DATA 


23153 


DATA 


23154 


DATA 


23155 


DATA 


23156 


DATA 


23157 


DATA 


23158 


DATA 


23159 


DATA 


23160 


DATA 


23161 


DATA 


23162 


DATA 


23163 


DATA 


23164 


DATA 


23165 


DATA 


23166 


DATA 


23167 


DATA 


23 168 


DATA 


23169 


DATA 


23170 


DATA 



116,0,32,0,12,192,192,196,240 

117,15,3,35,135,15,55,15,15 

118, 192, 241, 192, 68, 224, 225,240, 248 

114,0,64,1,16,64,15,63,253 

113,0,8,0,32,2,224,248,252 

34,240,204,204,240,204,204,240,0 

46,195,243,243,255,207,207,195,0 

11,215, 255 , 208 , 208 , 1 96 , 1 96 , 193 , 1 93 

10,255,255,2,2,8,8,32,32 

12,193,193,255,255,0,0,0,0 

14,128,128,255,255,0,0,0,0 

48,252,204,204,252,192,192,192,0 

52,252,48,48,48,48,48,48,0 

33 , 252 , 204 ,204 , 252 , 204 , 204 , 204 ,0 

33,252, 192,240, 192, 192; 192, 192,0 

57,204,204,204,252,48,48,48,0 

97,8,46,12,63,63,63,85,21 

98,0,0,0,0,0,4,81,4 

65,0,0,0,0,0,0,1,5 

66,0,0,0,0,0,0,64,0 

67,21,85,21,5,1,0,0,2 

6S ,85 ,85 , 85 , 32 , 96 , 32 , 1 68 , 1 70 

69,0,0,0,0,0,0,64,80 

70,0*0,0,0,0,0,64,0 

70,0,0*0,0,0,0,1,0 

71 , 84 , 85 , 84 ,80 , 64 , , Ö , 1 28 

72 ,85 ,85 , 85 , 8 , 9 , 8 , 42 , 1 70 

97,10,1,10,42,170,170,42,5 

98, 128,0, 128, 160, 16B, 168, 160, 64 

97,33,137,137,137,37,63,0,63 
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stung für weniger Geld anzubieten 
und genau dies erwartet heute der 
Käufer eines Heim-Computers. 

Die Zeit der einfachen Video- und 
Computer-Spiele ist vorbei. Die An- 
sprüche an einen Heim- Computer 
sind gewachsen, neben intelligenten 
und ereignisreichen Computer-Spie- 
len steht heute der pädagogische und 
semiprofessionelle Einsatz eines 
Heim-Computers im Vordergrund der 
Kaufentscheidung. Genau für diese 
anspruchsvolle Zielgruppe ist das Mo- 
dell 130 XE und das dafür verfügbare 
Zubehör wie auch das Programm- An- 
gebot konzipiert. 

Neu ist der Schritt von Atari in den 
Markt der Personal-Computer, aber 
der 520 ST ist nicht einfach nur ein 
neuer PC, er stellt vielmehr eine neue 
Klasse dar. Sie bieten in der bisher 
eigentlich nicht vorhandenen Preis- 
klasse zwischen 2800 und 5000 Mark 
ein Leistungspotential, für das der 
Kunde bisher etwa das Dreifache be- 
zahlen mußte. 



Durch konsequente Nutzung neuer, 
kostensparender Techniken ist es 
Atari gelungen, den Preis für Hochlei- 
stungs-Personal-Computer mehr als 
zu halbieren. Damit will Atari-Präsi- 
dent Jack Tramiel erreichen, daß sich 
auch für Personal-Computer ein Mas- 
senmarkt eröffnet. Der Atari-PC soll 
das neue leistungsfähige und preis- 
werte Arbeitsgerät an Schulen, Uni- 
versitäten, Instituten, für Freiberufler, 
kleine und mittlere Unternehmen und 
das Handwerk werden. 

Perfekte Leistung zu einem vernünfti- 
gen Preis ist das wichtigste Verkaufs- 
argument von Atari. Zusätzlich aber 
bietet der Atari 520 ST einen Bedie- 
nungskomfort, den man bisher bei Per- 
sonal-Computern nicht gewohnt war. 
Statt eines längeren Lernprozesses ge- 
nügt der Griff zum Schalter und schon 
kann mit dem Arbeiten begonnen wer- 
den. 

Renommierte Software -Häuser in den 
USA, England und der Bundesrepu- 
blik entwickeln seit einigen Wochen 



Anwenderprogramme für Standard- 
Lösungen wie auch spezielle Bran- 
chen-Programme. Sie alle werden den 
von GEM gebotenen Bedienungskom- 
fort in ihren Programmen konsequent 
einsetzen. 

Bewußt ging Atari bei der Entwicklung 
des ST-Personal-Computers eigene 
Wege und versuchte sich nicht an der 
Kopie eines Trends. Dafür gibt es drei 
Gründe. Atari glaubt nicht, daß ein 
Unternehmen mit einem nachempfun- 
denen Personal-Computer eine reelle 
Chance am Markt hat. Wer Stückzah- 
' len verkaufen will, und nur sie ermög- 
lichen günstige Preise für den Kunden, 
der muß seinen eigenen Weg suchen. 
Außerdem haben neue Geräte vor Stel- 
lungen gezeigt, daß ein verbindlicher 
Standard zur Zeit nicht sichtbar ist. 

Der wichtigste Punkt für den Allein- 
gang von Atari aber war und ist die 
technische Entwicklung. Die ST- Com- 
puter repräsentieren heute den neue- 
sten Stand der Technik. Sollte sich 
dies eines Tages ändern, wird Atari 
sich wieder am neuesten Stand der 
Entwicklung mit seinen Produkten 
orientieren. 

Die Kombination eines der besten Mi- 
kroprozessoren, des Motorola 68000, 
mit dem erweiterten Betriebssystem 
GEM von Digital Research ist eine Ga- 
rantie für optimale Leistung und per- 
fekten Bedienungskomfort. Außerdem 
zeichnet es sich deutlich ab, daß GEM 
bei verschiedenen anderen Personal- 
Computern, so auch bei den Geräten 
des Standards, in Zukunft die bisheri- 
gen, kompliziert zu bedienenden Sy- 
steme ablösen wird. 

Da schon verschiedene bekannte Pro- 
gramm-Pakete, darunter auch das in- 
tegrierte Programm Open Access, an 
das Betriebssystem GEM angepaßt 
wurden, ist dies ein Zeichen, daß GEM 
in Zukunft der neue Standard bei Per- 
sonal-Computern sein wird. 

"Im Bereich Heim-Computer erwartet 
die neue Atari Deutschland in 
Raunheim bei Frankfurt für 1985 ei- 
nen weiteren Ausbau der schon sehr 
guten Marktposition. Atari ist über- 
zeugt, in beiden Bereichen, Heim- und 
Personal-Computer, schon in kurzer 
Zeit zu den führenden Anbietern auf 
dem deutschen Markt zu gehören. Die 
preiswerte Spitzentechnologie der 
Atari-Modelle wird dem Computer 
neue und größere Käuferschichten er- 
schließen. 
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23171 DATA 98,72,98,98,98,88,252,0,21 

23172 DATA 58,255,255,215,215,215,21: 
23900 DATA -1 

29000 A=?1554sP0KE HO ,0* POKE H0+I,0:PaKE H0+2,ö:PDKE HO+3,0 
29005 RESTORE 29SOO 
29010 FQR I=A TO A+58 
29015 READ B 
29020 POKE I,B 

29027 GRAPHICS 1+16:F0KE 71O,0sP0KE HQ,0sPQKE H0+1,0;P0KE HD+2,0sPQKE HO+3,0 

29029 POSITION 3,2?? #6; "HQEHLEN-HERBERT " 

29030 POSITION 1,6s? #6; "OPTION = LEVEL "sLEV 
29032 POSITION 1,8:? #6; "SELECT = BILD NR."; BILD 

29034 POSITION 1,10s? #6; "START = START" 

29035 ART=PEEK (53279) 

29040 IF ART=5 THEN BILD^BILD+isFOR 1=0 TO lOsNEXT I 

29045 IF BILD>4 THEN BILD=1 

2905O IF ART=3 THEN LEV=LEV+1:FQR 1=0 TO lOsNEXT I 

29055 IF LEV>4 THEN LEV^O 

2906O IF ART=6 THEN 29100 

29075 GGTQ 29030 

29100 IF LEV>0 THEN GOSUB 3000Ö 

29110 RETURN 

29500 DATA 104,169,192,141,14,212,169,0,133,203,133 

29505 DATA 204,133,20,133,212,133,213,160,1,165,203,141,10,212,141,22,208,230,20 

3,173,16,208,240,23,173,252 

29510 DATA 2,201,255,208, 12, 196,20,208,230, 164,20, 132, 203, 200,76, ,>S,6, 169, 1 f loö, 

212,96 

30000 FOR 1=1 TO 3 S RESTORE 31000 

30O5O FOR J=RKI>*256+896+62 TO RI (I) »256+896+75 

30055 READ As POKE J,AsNEXT Js RESTORE 31000 

30057 FOR J=(RI{I)+12)*256+896+62 TO (RI (I) +12) »256+896+75 

3005S READ As POKE J,AsNEXT J 

30060 NEXT I 

30065. POKE 707,155 

301ÖO RETURN 

31000 DATA 0,0,0,0,0,0,0,60,90,255,195,126,60,195 



BALL HARBOUR 



Sl6 haben in diesem Spiel die selte- 
ne und witzige Aufgabe, Dreckpakete 
zum „Zerplatzen" zu bringen, um den 
Hafen zu verschmutzen. Ihr Kollege 
„Herbert von Kotzbeutel" macht gera- 
de die Belüftungsschächte der Hafen- 
toiletten sauber und wirft Ihnen die 
dabei entstehenden Dreckpakete 
durch die „Röhren" herunter. Norma- 
lerweise hätten Sie die Aufgabe, diese 
Pakete aufzufangen. Als Sie aber er- 
fahren haben, daß Ihr Kollege danach 
noch den Anlegesteg fegen soll, kam 
Ihnen die Idee, die Pakete mit Hilfe 
einer Reißzwecke zum Zerplatzen zu 
bringen. Sie wollen auf diese Weise 
Herbert einen bösen Streich spielen. 



für ATARI 800 XL 




Herbert kommt mit zunehmender 
Spieldauer immer mehr in Fahrt und 
arbeitet immer schneller. Dadurch fal- 
len die Pakete natürlich viel öfter her- 
unter. Nach einiger Zeit dringt Ihr 
Kollege Stück für Stück tiefer in die 
Röhre ein und schiebt diese weiter 
herunter. Die einzige Stelle, an der Sie 
die Pakete sehen können, ist die Luke 
in den Röhren. Diese wandert später 
freundlicherweise 
auch nach unten. 
Wir wünschen Ih- 
nen viel Spaß bei 
diesem recht ei- 
genartigen um- 
weltfreundlichen 
Spiel. 



50 



Computronic 



ATARI 



5 GRAPHICS 1B 

10 PAGE«140aCHS=PAGE*256a POSITION 4,3»? #6} "PLEASE WAXT" t RESTORE 28000 

15 FOR 1=128 TO 471sPDKE CHS+I ,255-PEEK (S7344+I) sNEXT I 

20 READ C:IF CO-1 THEN FOR 1=0 TO 7s READ AsPOKE CH5+C*B+I ,As NEXT 1 8 GOTO 20 

25 PM=144aPMB=PM*256+1024 

30 GAME=0 

50 REM SPIELBEGINN 

60 SOUND 0,0,0,0: NAILS=3sP=0sLEVEL=l:BCTR=4 

70 GOSUB 10000a GOSUB 11000 

80 DL=PEEK<560)+PEEK<561)*256+3sP0KE DL+ 19, 134 1 RESTORE 81s FOR 1=0 TO 19s READ AaP 

OKE 1536+1, As NEXT I 

81 DATA 72,138,72,169,50,162,114,141,10,212,141,25,208,142,22,208,104,170,104,64 

90 POKE 512,0: PQKE 513,6: POKE 54286,192 

100 REM NACH KAPUTT 

110 RESTORE 999+LEVEL:READ RLEN,LPOS: GOSUB 1100a GOSUB 1200 

120 NX=5sBALLS= 10: GOSUB 1300iCTR=0 

149 IF GAME=0 THEN 6000 

150 REM HAUPTSCHLEIFE 

160 ST=STICK<0)sIF ST<>15 THEN COLQR 32»PL0T NX, 17 

170 NX=NX-<ST«li AND NX>5) :NX=NX+<ST=7 AND NX<14) 

180 COLOR SiPLOT NX ,17 

190 CTR=CTR+lsIF CTR<BCTR THEN 250 

195 CTR*0 

200 COLOR 32iPL0T BX,BYa BY-BY+1 aLOCATE BX,BY,Ze SOUND 0,14,4,10 

210 IF Z=132 THEN 500O 

220 IF Z=5 THEN GOSUB 1400 

230 COLOR 129sPL0T BX,BY 

250 SOUND 3,INT(10*RNDCl))+100,8,2aS0UND 0,0,0,0 

990 GOTO 150 

1000 DATA 87,48 

1001 DATA 103,48 

1002 DATA 119,48 

1003 DATA 135,48 

1004 DATA 151.48 

1005 DATA 151,64 

1006 DATA 151,80 

1007 DATA 151,96 

1008 DATA 151,112 

1009 DATA 151,128 

1100 REM ROEHREN 

1110 FOR I«32 TO RLENsDAT=255-2 

1120 POKE PMB+I, DAT »POKE PMB+ 1+256, DAT i POKE PMB+ 1+5 12, DAT: POKE PMB+I+768,DAT 

1140 POKE PMB+RLEN+1, 126a POKE PMB+RLEN+257, 126: POKE PMB+RLEN+513, 126» POKE PMB+RL 

EN+769,126 f 

1150 POKE PMB+RLEN+2, 24a POKE PMB+RLEN+25Ö, 24a POKE PMB+RLEN+514,24:P0KE PMB+RLEN+ 

1160 FOR I»RLEN+3 TO 16B+7iP0KE PMB+I f 0i POKE PMB+I +256, Ol POKE PMB+I+512,0|P0KE P 

1170 POKE PMB+LPGS, 189» POKE PMB+LPOS+256, 189a POKE PMB+LP0S+512, 189*P0KE PMB+LPOS 

+768,189 

1180 FOR I=PMB+LP0S+1 TO PMB+LPOS+6 a POKE 1,129: POKE 1+256, 129a POKE 1+512, 129s POK 

E I+76B, 129 «NEXT I 



Das Magazin für alle Insider der Gomputerszene> 
monatlich Mit Anwendungsprogrammen für alle wichtigen 

ittvuauH.u Compütersysteme, einer Vielzahl von Berichten 

jf^'-Mp^-W T und Neuheiten auf dem Compütermarkt. Fragen 

■ mW 1 I Sie Ihren Zeitschriftenhändler nach der „Neuen" 

\i^MT : .'%J ' '■■■■ ■ ■■■CPU..:'-. 
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1190 POKE PMB+LP0S+7,195iPOKE PMB+LPOS+256+7, 195s POKE PMB+LPQS+5 12+7, 195s POKE PM 

B+LPOS+768+7,195 

119S RETURN 

1200 REM ZEREMONIE 

1210 FOR 1=0 TO 15 STEP O.SsSOUND 0,10,8, IsNEXT ItSOUND O f O f O f O 

1220 FÜR 1*12 TO 9 STEP -IsCOLÖR SsPLOT 1B,I:F0R W=l TO 4sNEXT W 

1230 COLOR 32iPL0T 18, IsNEXT I 

1240 FOR 1=15 TO STEP -3s SOUND 0,3,10, Is SOUND 1,6, 10,1 «SOUND 2,7, 10, IsNEXT I 

1241 FOR W=l TO 50:NEXT W: COLOR 32sPL0T 19, 12« COLOR 5sPL0T IS, 12a FÜR 1=15 TO S 
TEP -is SOUND 0,100, 12, IsNEXT I 

1242 COLOR SsPLOT 19,12sF0R 1=15 TO Ö STEP -IsSOUND 0,100, 12, IsNEXT I 
1250 FOR W=l TO 300:NEXT W 

1260 FOR 1=0 TO 15 STEP 0.25eS0UND 0,31 ,4, IsNEXT IsSOUND 0,4,B,4 

1270 FOR 1=0 TO 16 STEP 2$ COLOR 5: PLOT 5,1: FÜR W=l TO 4sNEXT Ms COLOR 32sPL0T 5,1 

sNEXT I 

12S0 COLOR SsPLOT 5,17sF0R 1=15 TO STEP -ItSOUND 0, 100, B, Is SOUND 1 ,50,8, I sNEXT 

X 
1290 RETURN 
1300 REM NEUER BALL 
1310 A»I NT (RND <Q> #4) s A=A*3: A=A+5 
1320 BX=AsBY=0sC0L0R 129sPL0T BX,BY 
1330 RETURN 
1400 REM ZERPLATZT 

1410 COLOR 131sPL0T BX,BY-lsFOR 1=15 TO STEP -3iS0UND 0,100, 8, IsNEXT I 
1420 P=P+1* POSITION 0,2s? #6sPs COLOR 32sPL0T BX,BY-1 
1430 BALLS=BALLB-lsIF BALLS >0 THEN GOSUB 1300s RETURN 
1440 SOTO 7000 
5000 REM NICHT GEFANGEN 

5010 POP aNAILS=NAILS-ls POSITION 17,2s? #6j NAILSsSOUND 0,255,8,15 
5020 BR=lsIF NX<BX THEN BR=-1 
5025 IF NX=BX THEN 5050 

5030 COLOR 129s PLOT BX,17iF0R W=l TD 20s NEXT Vit COLOR 32sPL0T BX,17 
5040 BX=BX+BRaLOCATE BX,17,ZsIF Z<>5 THEN 5030 

5050 COLOR 131s PLOT NX, 17s FOR 1=15 TO STEP -0. 5 i SOUND 0, 100,8, I i SOUND 1,80,8,1 
s SOUND 2,50,8, IsSOUND 3,30,8, Xs NEXT I 
5060 COLOR 32a PLOT NX, 17 
5070 IF NAILS>0 THEN 100 
5080 GOTO 6000 
6000 GAME» 1 : REM T I TEL 

6010 POSITION 4,20sPRINT #6 i "PRESS >>START"s RESTORE 6500 
6020 READ A.BsIF A=-l THEN RESTORE 6500s READ A,B 

6030 FOR 1=15 TO 5 STEP -le SOUND 0,A, 10, IsSOUND 1 ,B,10, I-SsNEXT I 
6040 IF PEEK<53279>=6 THEN 50 
6050 GOTO 6020 

6500 DATA 60,243,60,0,53,121,47,0 
6510 DATA 60,243,60,0,35,121,40,0 
6520 DATA 60,243,60,0,53,121,47,0 
6530 DATA 60,243,60,0,35,121,40,0 
6540 DATA 81 , 162, Bl ,0,72,81 ,64,0 
6550 DATA. 81, 162, 81, 0,47, 81, 53,0 
6560 DATA 60,243,60,0,53,121,47,0 
6570 DATA 60,243,60,0,35,121,40,0.-1.0 
7000 REM GEFANGEN 
7010 POP 

7020 BCTR«BCTR-lsIF BCTR=0 THEN BCTR= 1 t LEVEL=LEVEL+ 1 s IF LEVEL > 10 THEN LEVEL=10 
7030 FOR 1 = 15000 TO O STEP -290s SOUND 0, 1 , 10, 1/ 1000s NEXT I . 
7040 COLOR 32s PLOT NX, 17 
7050 GOTO 100 

10000 GRAPHICS 17s POKE 756,PA6EsSETC0L0R 0, 1 ,4sSETCOL0R 1 ,0,4iSETCOL0R 2, 1,2s SET 
COLOR 3,0,2 

10010 COLOR 132*PL0T 0,0sDRAWT0 19,0sPL0T 0,lsDRAWTO 19,lsPL0T 0,2sDRAWTO 19,2sP 
LOT 0,3sDRAWT0 19,3 
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10020 FQR 1=18 TQ 23iPLQT 4,l8DRAWTO 15,IsNEXT XeCOLQR 62sF0R 1-19 TQ 22aPL0T 0, 

IiDRAWTO 3,IsNEXT IsFOR 1=19 TO 22 

10030 PLOT 16,IlDRAWTÜ 19,IsNEXT I:COLOR 190sPL0T 0,23sDRAWT0 3,23sPL0T 16,23*DR 

AWTQ 19, 23i COLOR 61PLOT 4,17 

10040 PLOT 15,17iC0L0R 2SsPL0T 2,4iDRAWT0 2,5sC0LQR 12lPL0T 2,6«C0L0R 15iPL0T 3, 

6sDRAWTÖ 19 f 6s€aLQR 27 

10050 PLOT 17,6iCOL0R 29:PL0T 19,18aDRAWT0 15,14sG0L0R 192sPL0T 15,13jDRAWTÜ 19 f 

13tCQLQR 9BsPL0T 15,16 

10060 COLOR 102s PLOT 16, 15a COLOR 103a PLOT 17,14sC0LQR 104s PLOT 17, 15s COLOR lOOiP 

LOT 16,16 

10070 COLOR 30iPL0T 18,i4iDRAWT0 18,16iPL0T 19,14»DRAWTQ 19,17iPL0T 16,14aC0L0R 

I681PLOT 17,7iDRAWT0 17,9 

10080 COLOR 7iPL0T 17,10iC0L0R 9*PLDT 0,10lDRAWTO 2,SlCQL0R 14lPL0T 3,7sC0L0R 13 

iPLQT 0,9 1 DR AWTQ 2,7 1 COLOR 10 

10090 PLOT 0,11 sDRAWTO 2,9s COLOR 171 3 PLOT 3,8iC0L0R 168sPL0T 3,9iDRAWT0 3,15iC0L 

QR 7 8 PLOT 3, 16s COLOR 32 

10100 PLOT 5,0iDRAWT0 5,6iPL0T 8,0iDRAWT0 8 f 6iPL0T li,OiDRAWTQ ll f 6lPL0T 14,0iDR 

AWTQ 14,6 

10960 COLOR 77t PLOT 18 ,4» COLOR Bi»PLOT 18,5lPL0T 18,6iPLQT 18 f 7sC0L0R SStPLOT 18 

,8 

10970 COLOR 107iPL0T 6,6iPL0T 9 f 6iPL0T 12,6«PL0T 15,6 

10980 COLOR 234*F0R 1*6 TQ 15 STEP 3aPL0T I,0:DRAWTO I,3sNEXT I 

10985 POSITION 0,li? #6j "SCORE" (POSITION 15,li? #6| »VNLS> M 

10986 POSITION 0,2l? #6|"0»»" »POSITION 15,2l? #6s"V>3» M 
10988 COLOR 5 8 PLOT 18, 12s PLOT 19,12 

10990 RETÜRN 

11000 REM PM GRAPHICS 

IIÖIO POKE 54279 ,PMiPOKE 53277, 3s POKE 559,62 

11020 POKE 704 f 38*P0KE 705 r 38 8 POKE 706 »38 1 POKE 707,38 

11025 POKE 53248,SSiP0KE ^3249, U2sF0KE 53250, 136* POKE 53251,160 

11030 RETURN 

12000 QOTO 12000 

2B00O DATA 1,0,0,24,60,60,24,0,0 

28010 DATA 3,0, 18, 72,20, 8,34,4,0 

28020 DATA 4,223,223,223,0,251,251,251,0 

28025 DATA 42,31,31,31,0,59,59,59,0 

28026 DATA 43,0,0,0,63,63,63,0,0 

28027 DATA 45,244,244,244,244,244,244,244,244 

28028 DATA 49 , 244, 244 , 244 , 244 ,244 , 244 , 244 , 244 

28029 DATA 53,120,0,0,0,0,0,0,0 

28030 DATA 5,0,8,8,8,8,62,127,62 
28035 DATA 54,63,63,63,63,63,63,63,63 
28040 DATA 6,60,126,60,60,60,60,126,255 
28050 DATA 7,8,8,8,4,36,36,24,0 
2B060 DATA 8,8,8,8,8,8,8,8,8 
28070 DATA 9,5,12,23,50,92,200,112,32 
28080 DATA 10,192,128,0,0,0,0,0,0 
28090 DATA 11,136,8,8,8,8,8,8,8 
28100 DATA 12,56,56,56,63,63,63,0,0 
28110 DATA 13,0,0,0,0,0,0,1,3 
28120 DATA 14,0,0,24,60,92,200,120,40 
28130 DATA 15,0,0,0,255,255,255,0,0 
28140 DATA 27,0,8,28,255,255,255,28,8 
28150 DATA 28,56,56,56,56,56,56,56,56 
2B160 DATA 29,255,127,63,31,15,7,3,1 
28170 DATA 30 , 255, 255 , 255 , 255 , 255 , 255 , 255 , 255 
2B1S0 DATA 32,136,221,170,136,136,136,136,136 
28190 DATA 34,0,0,0,0,0,1,2,4 
28200 DATA 36,8,16,32,64,128,0,0,0 
28210 DATA 38,255,127,63,31,15,6,1,5 
28220 DATA 39,255,255,231,195,211,211,199,223 
28230 DATA 40,223, 191 , 191 , 127, 127, 255, 255, 255,- i 



Atari 130 XE 
- Das Kraftpaket 

unter den 
Heim-Computern 



Ein. ungeschlagener Champion in Lei- 
stung und Preis ist der neue 130 XE 
Heim-Computer von Atari. Mit einem 
Arbeitsspeicher von 128 Kilobyte ist 
er jeder Aufgabe gewachsen und kann 
sich erfolgreich mit jedem einfachen 
Personal- Computer messen. Aus 16 
Farben kann der 130 XE 256 verschie- 
dene Farbtöne darstellen und seine 
selbst programmierten Videospiele 
kann man mit elektronischer Compu- 
ter-Musik untermalen. Acht unabhän- 
gige Tonkanäle können über den Be- 
reich von jeweils dreieinhalb Oktaven 
programmiert werden. Entsprechend 
farbig und klangvoll ist auch der Preis 
von 598 DM für den Atari 130 XE. 



)omputronic 
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• ••TQTENKOPF^^^ 

Der Sinn dieses Spiels ist die vollständige Beseitigung der 
Totenköpfe am oberen Spielfeldrand 



Zur Lösung dieser Aufgabe steht Ih- 
nen ein Ball und ein Schläger zur Ver- 
fügung. Sie müssen nun den Ball mit 
Hilfe des Schlägers im Spielfeld hin- 
und herschlagen und die Totenköpfe 
abschießen. Für jeden getroffenen To- 
tenkopf erhalten Sie Bonuspunkte. Ist 
es Ihnen gelungen, sämtliche Toten- 
köpfe zu treffen, erscheint ein neues 
Spielfeld. Zur besseren Unterhaltung 
wurde dieses Programm mit viel Mu- 
sik ausgestattet. Weiterhin sorgt eine 
Vielzahl von diversen Menüs für eine 
individuelle Spielgestaltung, so daß 



kaum Langeweile aufkommen kann. 

Gesteuert wird das Programm mit den 
Tasten 

- 1 - Schläger links 

- - Schläger rechts 
Break-Taste: Spielstop 

Eingabeanweisungen: 

Geben Sie zuerst das Hauptlisting ein 
und speichern Sie es mit SAVE „To- 
tenkopf" LINE 10 ab. Anschließend 
tippen Sie bitte das Maschinenpro- 
gramm-Listing ein und starten es mit 



RUN. Jetzt können Sie die Zahlen für 
das MC-Listing eingeben. Mit dem 
MC-Prüflisting 1+2 können Sie nun 
die Korrektheit der Zahlen prüfen. 
Das Prüflisting Nr. 1 berechnet die 
Prüfsummen und das Prüflisting Nr. 2 
die Speicherinhalte. Haben Sie ein 
korrekturfreies MC-Listing vorliegen, 
speichern Sie dieses nach dem BASIC - 
Listing, mit SAVE „MC" CODE 
4000,975 ab. 

Zum Spielen laden Sie nur das BASIC- 
Programm, da der MC-Code automa- 
tisch nachgeladen und gestartet wird. 



2 POKE 33639,100 
5 GO TU £0 

10 REM GOBflLL 

IS GLERR 39999: LORD ""CODE 

IS RUN 

2Ö DRTH EIN ©öl 11 ISS, BIN 01111 
110, BIN 11011011, BIN 011 11 110, BI 
N 00 1 1 1 100 , B IN I 1 1 10 1 1 , B IN 0101 
10 10-, BIN Q 

21 DRTR 0..BIN 800 11000, BIN 001 

10 100, BIN 011 11010, BIN 01111010, 

BIN 00 110 100, BIN 0001100©,0 

2-2 D RT R , , B IN 009 i 1Ö38 , B I N 
0111100, BIN 00111 100, BIN 0001100 

©,0,0 

23 DRTR " u " ,2,254, 124 , 60 , 23 , 24 
,56 , 248 

24 DRTR " ü " , © , 3 , 125 , 70 , 70 , 70 , 1 
24 , 

25 DRTR " t " , S , IS , 52 , 80 , 15 , 24 , 1 
20, 125 

26 DRTR :; £ " ,0 , 64 , 126 , 1 14 , 125 , 1 
12 , 126 , 

27 DRTR " H " ,0 , 12 S , 124 , 124 , 10 O , 
116, 118 ,0 

28 DRTR " K " , , 66 , 54 f 52 , 60 , 54 , 3 
4,© 

29 DRTR " p " , , 128 , 126 , 7 8 , 94 , 12 
6 ,54 ,, 192 



30 ü'RTh " f " ,0 , 50 , 43 , 35 , 124 , 48 , 
46,0 

35 FOR n=Ö TG 7: READ 5: POKE 
USR " c " +n , -3 : NEXT n 

40 FOR n =0 TG 7: RERD 3 : POKE 
USR "a " 4-n , a : NEXT n 

41 FOR n =0 TG 7: RERD 3: POKE 
USR "b 1! +r'i,a: NEXT n 

42 FOR X=l TG 8 

43 RERD a $ 

45 FOR n=0 TO 7: RERD 3: POKE 
USR 3 $+n , a : NEXT n 

47 NEXT X 

50 LET d=l: LET Cl-2: LET e =3 : 

LET r" ~0 : LET g =7 : LET bi=6: LET 

.- „er 

70 LET st =4 0000 

75 LET Li=0 

So GO S ÜB 1000 

90 CLS 

1 W3 G REH *********************** 

1©1 REH 

102 REM * .spieLfei d au r" ba u e n *. 

103 REH 

134 REM *********************** 

105 POKE s t +5,0 

106 LET ba~l 

110 PRPER Cl: INK bl: BGRDER d 

112 CLS 
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115 PRINT " 


fl*i ft'i s r 


: "; b-3 


• • 


547 


PRINT AT 21,4;.; INK s .; PRPE 


128 PRINT " $ Jcf^teteWtfJ** 


R e .; ! 


«m 


$ 


543 


PRINT AT 21,4; PAPER e ; INK 


130 PRINT " 


g ; ,: # ,: 


>. 


•_i i_i «3 


IF INKEY$ = ' ! " THEN GO TO 558 


135 PRINT .PHPER Cl; " " ; PRPE 


srcrsr 


BEEP »1,3 


R e.; " ■'.; 


558 


L ET L = U 5 R 40817 


PAPER cl; " 


551 


LET RU=PEEK (St +5) 


14-S FOR n— 1 TG 5 


^f 5 . T 


IF 1=2 THEN GO 5 ÜB 2008 


158 PRINT .* " " i 


555 


IF 5 3=2 AND l<>3 THEN GO TO 


155 PRINT PflPER e .; ,! '" ; 


388 




150 FOR X=l Tö 2S 


578 


REM * ERGEBNIS 


163 PRINT PflPER e .; INK f.; "&" .; 


571 


INPUT 


155 NEXT ;•; 




IF INKEV'i<>"" THEN GO TO 57 


17© PRINT PflPER £.;" " ; : PflPER 


5 




Cl: PRINT " 




PR INT »0 .: FLASH 1 ; " - Taste«* 


138 NEXT n 


538 


IF INKEY$="" THEN GO TO 588 


190 FÜR n=l TG 13 


535 


IF 1=3 THEN GO TO 678 


208 PRINT PflPER cl.;" ".; PRPE 


598 


GO 5UB 3888 


R e ; " j 


578 


CLS 


PflPER cl; |: " 


638 


s-' ?-: iNT Hi • j , 8 , — B i 1 1 k w ash l 


218 NEXT n 


e f s -3 i 


e : 


22ö PRINT P.T 21,15;.; INK s; PAP 


598 


PRINT AT 10 , 8.j "5 ) D-3SSS IbS 


r^* f~~i «**. j * l^yg^tPff? * ' 


n o c h 


e i n n'i a L " 


2 3 S P R I NT FiT £1,4; PflPER £ ; I N K 


7S0 


PR INT , , , , " b j Sp i £ 1 3 r t asnd 


9; "*" 


e rn " 




248 PflPER cl: INK bl 


710 


PR INT , , , .« " c ? Au f h o eren " 


258 PLOT 3 1,8: DRfiU 8 , 152 


728 


Hi-iJLr-il , , , , .i , THo xkj , ■: ■: ■: 


258 DRAU 193,8 


730 


INPUT FLASH 1;"- wie geht "s 


278 DRAU 8,-152 


yj S i t 


e r i a / b / c !' '? " .; L INE a % 


2S8 PLOT 8,175: DRAU 31,-23 


-7 A i - » 


IF ai&:="c 5 ' THEN GO TO 9588 


298 PLÜT 255,175: DRAU -31,-23 


750 


IF a$=" b" THEN RUN 


388 PLOT 8,8: DRAU 8 , 175 


750 


GO TO 188 


318 PLOT 255,8: DRAU 8,175 


380 


REM * * Hbrae u f» e n 


328 DRAU -255,8 


310 


LET ba=ba+i 


338 PLOT B .,0 : DRAU 32 , 8 


331 


INPUT '■ " 


348 PLOT 224,8: DRAU 31,8 


;=; --^ ar 


I F I N K E Y % < > ' ' " THEN G T 3 3 


358 RESTÖRE 5898 


o 




358 LET C = . 83 


348 


PRINT SS.; FLASH lj ( " - Taste 


378 FOR = 1 TD 5: READ -3 .. b : BEE 


,! ANC 


< ( ba > l i OR PU=1G8) 5 J t"_- U« i 


P C *-3 , b : NEXT n 


ter c 


di* r S 1 P £ w .--'S j 7 " AND '! ba < = 


588 REH ****£*******£**&*-ä--*-**-£'& 


Li Ar 


ID pU'< 188) J 


518 REH 


34 1 


I F I N KEY' %-'' " THEN G O T Ö 3 4 1 


528 REM * SPIELST ART * 


342 


IF INKEY$="S" THEN GO TO 57 


538 REM 





• 


i«48 REM **#$***-ifr******-fc**'S , -*-££"$* 


ö «+■ %5 


INPUT 


542 IF S -3 = 1 THEN GO TU 558 


c* *** o 


IF 1=2 THEN LET ba=ba-l; GO 


545 INPUT " Dies ist B-3LL Nüiiiiiie 


TO £ 


■ 38 


r : " 


345 


IF ba > L i THEN GO TO 598 


546« PRINT 4*8; " Di SS ist B-3 L l Nu 




GO TO 588 
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89 PR INT n .; FLASH 1 .; " - Taste" 

9ßS GO TO 590 

yyy o s Ur 

Xß00 REM ******-*££**********■*■*■*■* 

1010 REM 

1320 REM Ein s t e l L £ n 

1030 REM 

1G4-3 REM * + *££********-*&*'£**'*""£'*"'3' 

105Q PflPER 1: BORDER 1: INK 6 

1055 CLS 

1060 PRINT "ttttttJtttitftattttftttttttattttÖBtt 

1070 PRINT 

1080 PRINT "tt M E N U E 

«" 

1090 PRINT 

1100 PRINT , 'SUSÖÖÖ3ÖÄJ?Stt:8ÄÖS3S?tÖ 

tt8tttt8»8tta8tttt" 

1110 INPUT FLfiSH 1;"- Ton ein/a 
us te/aJ '? " .; LINE a$ 

1120 PRINT RT 8., 0.;"- Ton : 

" ., "ei n " flMD a * = " e " ; "aus " ÄND a $ < 

> " g 

1 130 PöKE st,(a$="e") 
1140 INPUT FLfiSH 1.;"- ScLaeg. sc 
n . / l 3 n 9 S - ( '=■ -'■* ! - 5 '"' " .: i- INE 3 $ 
1150 PR INT RT 11,0.:"- S c hlsege r 
: ".."schnell" fiND a $ = " s " ; " L angs a i» 
" fiND a$< >"s" 
1155 LET W = Ca $ = "£ "J +1 
1150 P O K E s t +52 ,, w 

1170 INP UT r Lfi3 H 1 .; " - öesc h w indi 
g K e i t ( 1 -5 ) ? " ; L INE a $ 
1180 IF LEN 3$<>i OR (CODE a$<49 
OR CODE a$>53) THEN GO TO 1170 

1190 PR INT RT 14,0.;"- Gesch w i n d .. 
- " , a $ 

1191 PRINT 4+0.; FLhSH 1;" O.K. ( 
j /n j ?" 

1192 IF INKEY$="" THEN GO TO 119 
2 

1193 I F I N K E Y $ = " n * ' THE N G D T O 10 

00 

1195 GO TO 1150-h (5ö*U'fiL a$i 

1200 REM SEHR LhNGShM 

1205 POKE s t 4-181 , 15. --'».«J 

1210 POKE S t 4-172.,.30/W 

1220 POKE st+218,3 

1230 POKE s t +24 1 , 

1240 POKE S t +242 . 3 



j. ü **• •_> '{-•'. u_ i '_' t-i i '"4 

1 cd -~« R E M L H N i L? %t> H M 

1 2 S 5 P u K E st+i S 1 .i 1 & / *.u 

126-0 POKE s t + 1 7 2 , 4 / w 

127 8 P O K E S t + 2 1 8 , £ 

1280 POKE s t 4-241 , 150 

12S© POKE £ t 4-242 , 1 

1295 RETURN 

13S0 REM MITTEL 

1305 POKE s -f. 4- 18 1 , 15 /w 






*-' U Kt S l 4- iL / ii . 4 kt / w 



1320 POKt 3 t +H lü , 1 

1330 POKE s t 4-241 , 55 

1:340 POKE S t 4-242 , 1 

1345 RETURN 

1 3 50 R E M S C H N ELL 

1 3 5 5 P O K E St+1 8 1 , 15 / w 

1350 POKE it + 172 , 30 /«l 

1370 POKE St 4-2 18,1 

1380 POKE st 4-241, 55 

1390 POKE S t 4-242 , 1 

1395 RETURN 

1400 REM SEHR SCHNELL 

14©5 POKE s t + 18 1 , 10 SM 

1410 POKE S t 4- 172 ., 14 /w 

1420 POKE S t 4-218 , 1 

1430 POKE St+241,55 

1440 POKE S t 4-242 ., 1 

144-5 RETURN 

.1500 REM ****•*****■£**********■*■■*••* 

1510 REM 

1520 REM SPIELART UfiHL 

1530 REM 

1540 REH.', ** + * - *****£**'fr , ä - *'$-&-$'*-*-**-3 - 

1550 CLS 

1570 PRINT "tttttttta«tt»»tttt»ttttttttftttCÖ 
8 ttö 8 8 8 8 8 8 8 8 8 ' ' 

1 5 8 © P R I NT , , "U M E N U E 

II £" 

1585 PRINT 

1590 PRINT "ttSftit»SS3SSS3+t+t+tß+titS1+ 
ÖöKö8;8+i88888" 

1500 PRINT AT 5,0.; "— SIE HABEN "Z. 
U EI S P I E L H RT E N , .< , " ZU R H U 3» U H H L 

18.10 PRINT , , , , , , "3) hBRhEUMEN 

1820 PRINT , , , , " ODER" 

1 5 3 P R 1 NT , , .. , " b > EI N BALL P R O 

1 £-4 I NF UT FLASH 1 .; " — Rbrae u p(i e n - y 

Ball (a/bj 7 !! .; LINE a$ 
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00 




1650 PRXNT RT 12,0; QUER 1; PRPE 








1900 


RETURN 


R 5; XNK 9; (" " fiND a 


2 Q0Ö 






REM **£******£&****•*•■*■■*■***** 


$ = '*a " ) .; AT 18 , 0.; ; ( " 








2010 


REH 


" RND -3 % ■'. > " 3" i 






1555 LET sa= C3$ = "3") +1 


2020 


REH •*■ R L les weg * 




2030 


REH 


155S PRXNT RT 21.. 0; FLASH 1,"- G 


2040 




W i * yn "t " 


REM **£***************■£•■£-£■£* 


■ r*. a K ,\ y t \ } 


2045 


PRXNT PRPER 3; " " 


1570 IF INKEY$b"" THEN GO TO 167 






_ L 


£050 


LET c = . 1 


t 1 


2050 


R E ST ü R £ 5 8 


16S0 XF INKEY$="n" THEN GO TO 15 






00 


2075 


QUER 1 


2080 


PRI NT RT 10,0; "****■&■*■&&■&■■>:'£■* 


1 S 9 X F £-3=1 THEN R ET U R N 








^-i-^-i--i- : ^'i--^-^'-f--^-i--f--i--f'-* ; i:^^.'-i 


17Ö0 REM SPIELART RBRREUMEN- 








2 100 


PRXNT , ..TAB ; " Herz Li c 


1710 CLS 








h e n c 


3 l u e c K «.d u n seh 


17£0 PRXNT " UUUUUUuUUUUttuUUUUUUU 








2110 


K R 1 N r .1 , T H B ,0 , **■*•*■*■•*•■*••*■**•** 


ÖCÖÖÖ3ÖS3SSÖ" 








*■*■•$■* 


£********•*•*•*■■*■•*■** 


1730 PRXNT 








2115 


OUER 


: 1740 PRXNT "tt . RBRREUMEN 






n" 


2120 


FÜR n~l TO 18: RERD a , b : BE 


EP c 


*a , b: NEXT n 


1750 PRXNT 








2500 


RETURN 


! 1750 prxnt " nn&nnnnünnnnnnnnn&z# 






) 


30S0 


He?'! **■£■* 


tttt«tt8ttStt»ttS:tt" 








3010 


REM 


1770 PRXNT RT 6.. 0;"- Sie haben d 








302S 


REM * Pu n K t e w e r t u n 3 -* 


i e U-äh L : " 






1780 PR INT , , " Z w i s Chen" 


3 3 


REM 


1790 PR TNT RT 1 1 , © ; " a 3 be s c h r -5 e n 


3040 


REM **** 


, 


3041 


PRPER 5: BÖRDER 5 


?; «. e r " , , .. , , " b 3 u n be s c h r a enkter" 






1S0Ö PR INT RT 16,©;" BalLza h L " 


3 042 


CLS 


18 10 XNPUT FLASH 1 ; " - Bitte tri a e h 


3045 


XNK 3 


Len (a/b) ? " ;; LINE a$ . 


3050 


PLOT 50 , 135 




3060 


DRRU 170 , 


1820 PRXNT RT 11,©; OUER 1.; PRPE 






R 5; IHK 9j t" " fi 


3070 


DRAU ©, -100 




3080 


DRRU -170,0 


ND a $ = " a " ) ; RT 14 , ; i" 






RND a $ < > " a " 3 


3090 


DRAU 0,100 




3091 


PLOT 60,125 


1830 XF a $ < > "a " THEN LET Li =999 : 








3092 


DRRU 150,© 


GO TO 1870 








3893 


DRRU S , -8Ö 


1840 PR INT RT 20,0; " 5a L L v f f a t 






,, 


3094 


DRRU -150,0 


•* 


3095 


DRRU , SS 


1350 XNPUT FLRSH 1;"~ Anzahl Bae 








30.95 


PLOT 50,125: DRRU -10,10 


L le (2-999 3 '? " .: li 








3097 


PLOT 2 10 j 125 : DRRU 1© , 10 


1855 LET li-INT li 








3093 


PLOT 210,45: DRRU IG, -10 


1860 XF li-cS OR li>999 THEN PRIH 








3099 


PLOT 60,45: DRRU ~ 1© , - 10 


T RT 20,0; PRPER 5; XNK 9; " SCH 








31Q0 


XNK 2 


URCHKOPF ": BEER 1,10: GO TO 184 






Q 


31©5 


PLOT 137 .. 143 


3110 


DRRU IX, 23 


1865 PRXNT Li 








3120 


XNK 


1870 PRXNT ÖS; FLRSH 1;"- O.K.?" 








3130 


PLOT 135 , 143 


1880 XF INKEY$=" " THEN GO TO 183 









3 140 


DRRU -3,4: DRRU -8,16 


3150 


PLOT 135 , 143 


1890« XF INKEY$ = "n" THEN GO TO 17 








316© 


DRA U 10, 3 : D R R U 3 , 8 
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3170 PL OT 1 3 5,14 3 

3 1 S © D R H U -2,13; D R H U - 5 , 5 

3 1 31 P L OT 135,14 3 : DRh U 10,-3: D 

RRU 15 , 3 

3 132 PLOT 135 , 14-3 : DRAU - 15 , -5 : 

DRRU -S , 2 

3 1 '3 PLOT 140,1 3 5 

3195 INK 3 

3200 DRRU -10,0,1.5 *P I 

3205 INK 2 

3210 PRINT RT 1,13;"©" 

3215 INK 9 

3220 PR INT OT 7 , 3 .; C " Sie errei ch 
ten : " RND isasi OR pu<lQ0)) j 

3221 PR INT i : ' s ie benoetigte n " R 

N D i S a s2 fl ND P U = 100 5 3 

3223 RESTORE 5050 

3225 LET C =0 . 1 

3223 FÜR n=l TO 10: RERD a , b : SE 

EP C *a , b : NEXT n 

3230 IF saa=l OR pu<100 THEN PRIN 

T RT 10 , 12 ; ('" " AND pu < 10 ) ,#Ü.; " 

Pu n K t " .; l" e " RND p u > 1 ) 
3235 IF Sä »2 RND pu=10© THEN PRI 
NT RT 1S,12; C"0" RND ba<10O); ("0 
" RND bäilS) ;ba; (" BaeiLe" RND b 
a>i:».; t" Ball" RND ba=l) 
3240 PRINT RT 13,9; 
3245 IF sä=2 RND pu=100 THEN LET 

p u = IBS - INT { i ba /5 5 * 10 ) 
3247 IF pu<0 THEN LET pu™© 
325S RESTÖRE i 35 IS + INT C p U / 1© !■ * 1 

©:« 

326© RERD a$ 

327© PRINT a$ 

328© PRINT »0; FLASH 1;"- Taste" 

3290 IF INKEY$="" THEN GO TO 329 



330© RETURN 

3500 REH * * Kg in fti e n t a rdata * 

35 10 DRTR " * Oh j e fö i n eaua u . . " 
352© DRTR "* Ueben, Ueben. ." 
353© DRT R " * N i C h t s c h l echt" 
354© DRTR " * Weiter so... 
355© ' DRTR " * Du rchschni tt . ." 
355© DRTR " * Es g e h t v o f an " 
357Ö DRTR " * MittelSügut " 
3530 DRTR " * Klasse S 
359© DRTR " * Ober f u L fii i n an t " 
3500 DRTR "* Fast perfekt 1" 



3999 STOP 

500© REM *********************** 

5010 REM 

502© REM * nUSiKdata * 

5030 REM 

5040 REM *********************** 

505© DRTR 2 ,7,1,7,1,7 , 3 ,7,1,7 , i , 

7,1, 9 , 1 ,7,1 , 9 , 5 , 12 

506Ö DRTR 2,0,2,5,1,5,2,5,2,9,2, 

7 , 1 ,5,2,7,1 , 9 ,1,7 , 2 , 5 , 1 ,5,2,9,2 , 

12,5, 14 

507Ö DRTR 1 , 14 , 3 , 12 ,1,9,2,9,2,5 .. 

2,7,1, 5 ,2,7.1 , 9 , 1 , 7 .. 3 , 5 .. 1 , 2 , £ .« 2 , 

2,0, 5 , 5 

5SS0 DRTR 2, 0, 2., © .»2,0,4,5 ,4 ,5 ,4 , 
7,4,7, 6 , 12 ,2,9 , 3 , 5 , 1 , 5 , 3 , 9 , 2 ,5,4 

,2,7 , 10 , 3 , 7 , 1 , 4 , 7 , 5 

509© DRTR 3 , 40 , 5 , 3© , 3 , 3© , 3 , 3© , 5 , 

4© 

•7 q cj 9 := "7 Q P 

S0©0 REM *********************** 

301© REM 

302© REM SRUE 

803© REM 

S©40 REM *********************** 

305Ö SRUE "TOTENKOPF" LINE 10 

306© SRUE "TÜTENKOPF "CODE 4S©0© , 

925 

905© UERIFY "'■ 
•906© UERIFY "TOTENKOPF "CODE 400© 

© , 885 

907S RUN 

9500 REM *********************** 

951© REM 

9520 REM * Spielende * 

953© REM 

954© REM *********************** 

9550 PRPER 2: INK 9: BORDER 2: C 

LS 

955© PRINT RT 5,©;"- Das mar" 

9570 PRINT RT 12,8;"? tf ^ t fe .. W 

u J" * " 

9575 INK 4 . 

9 5 3 © P L OT 5 1 ,91 

959© DRRU IS©,© 

9600 D RRU © , - 3 © 

961S DRRU -160,0 

952© DRRU © , 30 

9530 DRAU -1©,10 

9540 DRRU ISO , © 



Computronic 



sincrlair" 

ZX SPECTRUM 



SS 5fö 


'DRftU 


.. -58 








9 6 SS 


: -DRRU 


-138,8 








9578 


PRRU 


8 , 58 








9S88 


PLQT 


£11, 91- 








9690 


DRRU 


18/1© 








9780 


■PL.OT- 


£11>S1 








9718 


DRfiW 


1.8., -18 








3738 


PLQT 


51 ,'61 : 








9738 


DRAU 


— 18 ., — 18 :; 








9748 


LET ■: 


■=.as. ■..:.. 








974-5 


: RESTORE 58&©. : 








9758.. 


FÜR r 


sl. TD 3©v 


REhD . a 


, b : 


BE-- 


EP ■£■• 


fa ; b : 


NEXT n 






- . ■ . 


97? 8 


FR INT INK 9; RT 


21,13} 


*fl 


l"3o' 


5 by 


RlDXr 


•So f t" '■ ■ . . 









HAUNTED HEDGES 



L/1G raffinierteste Version des beliebten Labyrinth- 
Spiels! Wir betreten die Geisterwelt. Überall wuchern 
unheimliche Hecken und formieren sich zu einem verwir- 
renden Labyrinth. In diesem unseligen Labyrinth liegen 
Goldmünzen versteckt. Aber wenn wir versuchen, diese 
Beute einzusammeln, fallen die dämonischen Wächter des 
Labyrinths über uns her. Unsere einzige Verteidigungs- 
waffe ist die fürchterliche Eis- Axt; doch wenn man damit 
zuschlagen will, kann es einem passieren, daß die Axt 
schmilzt! Und das Ganze in 3D, was so ein Labyrinth erst 
richtig greifbar bedrohlich macht! 



TIME GATE 

Interessante Software 

für 

ZX-Spektrum (16 k und 48 k) 




-fcllie mörderische Jagd in der vierten Dimension. Die 
Mission: Tausende von Jahren in die Vergangenheit zu- 
rückreisen und die Außerirdischen, die seither die Erde 
bedrohen, noch vor dem Augenblick ihrer ersten Aggres- 
sion vernichtend schlagen. Ein prähistorischer 4D-Prä- 
ventivschlag! 

Vertrieb: ISS Individucü Software Service Jürgen Schumpich, 
Ottobrunn 



Goldene Diskette für Lernprogramm 



für Sinclair ZX-Spectruin 



Im Wettbewerb um die Goldene Dis- 
kette für hervorragende Programmier- 
leistungen kam auch ein Programm für 
den Sinclair ZX-Spectrum zu Ehren. 
Geschrieben wurde das Geographie- 
Lernprogramm GEOMAT von dem 
siebzehnjährigen Schüler Olaf Hart- 
wig, Kappeln, der zusammen mit fünf 
anderen Preisträgern auf der diesjäh- 
rigen Hannover-Messe ausgezeichnet 
wurde. 

Der Programmierwettbewerb wurde 
unter der Schirmherrschaft des Bun- 
desministers für Forschung und 
Technologie, von dem Mikrocompu- 
termagazin „Chip" und „HC - Mein 
Heimcomputer" sowie dem Informa- 



tionszentrum Jugend + Technik der 
Hannover-Messe veranstaltet. 
Das Programm des siebenzehnjähri- 
gen Schülers für den Sinclair Spec- 
trum ist ein Geographie-Lernpro- 
gramm, das nicht nur Wissen vermit- 
telt und abfragt, sondern auch selbst 
fähig ist, zu lernen. Zunächst einmal 
dient das insgesamt dreiteilige Pro- 
gramm als elektronisches Geographie- 
Lexikon. Einzelne Länder werden auf 
einer farbigen Weltkarte dargestellt. 
Der zweite Teil besteht aus einem 
Wissenstest. Der dritte ermöglicht es, 
das Programm geographische Sach- 
verhalte erraten zu lassen. Dies ge- 
schieht über Suchbäume, die zum Teil 



der Entwicklung von Expertensyste- 
men entlehnt sind. Wenn das Pro- 
gramm einen Begriff nicht errät, fragt 
es danach und nach Kriterien, unter 
den es den Begriff in sein Wissen ein- 
bauen kann. Das Programm ist sehr 
gut dokumentiert und nutzt die Mög- 
lichkeiten des Computers voll aus. 

In Vertretung des Bundesministers für 
Forschung und Technologie, Dr. Rie- 
senhuber, zeichnete Dr. Donth den 
diesjährigen Preisträger der Goldenen 
Diskette, Olaf Hartwig (17), Kappeln, 
aus. Olaf erhielt einen Preis für das 
Geographie- Lernprogramm GEO- 
MAT für den Sinclair Spectrum. 
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TI-99/4A mit EXTENDED BASIC 



Steuern Sie Ihre Rakete durch den Asteroidengürtel 
und vernichten Sie die gegnerischen Raumschiffe 



Nach dem Start mit „RUN" erscheint 
der Name des Spieles und der 
Sternenhintergrund wird gezeichnet. 
Es erscheint eine Startrampe im unte- 
ren Teil des Bildschirms, die mit dem 
Joystick Nr. 1 nach links und rechts 
bewegt werden kann. Am oberen Rand 
des Bildschirms bewegen sich 6 gegne- 
rische Raumschiffe in 3er Gruppen 
und beschießen Ihre Rakete mit Bom- 
ben. In der Mitte des Bildschirms zie- 
hen in der ersten Runde 4 Asteroiden 
ihre Bahn. Die Anzahl der Asteroiden 
steigert sich bis zur 4. Runde bis auf 10 
an. In jeder Runde wird die Geschwin- 
digkeit der Asteroiden erhöht. Man 
muß nun versuchen, mit seiner Rakete 



eines der gegnerischen Raumschiffe 
am oberen Bildschirmrand zu treffen, 
wobei das getroffene Raumschiff dann 
vernichtet wird. Um zu starten, muß 
die Feuertaste des Joysticks 1 ge- 
drückt werden. Bei gedrücktem Feuer- 
knopf fliegt Ihre Rakete schneller. Ihr 
Flug kann mit dem Steuerknüppel 
nach' links oder rechts beeinflußt wer- 
den. Aber nach dem Start gibt es kein 
zurück mehr, denn Ihr Raumschiff hat 
keine Bremstriebwerke. Berührt man 
einen der Asteroiden oder eine Bombe 
der 6 gegnerischen Raumschiffe, wird 
Ihre Rakete vernichtet und ein Leben 
abgezogen. Am Anfang stehen Ihnen 3 
Leben zur Verfügung. Sie verlieren 



aber auch dann ein Leben, wenn Ihr 
Bonus, der unter den anderen Anzei- 
gen zu finden ist, auf Null abgesunken 
ist. Ein neues Leben erhalten Sie im- 
mer, wenn Sie 2 Runden überstanden 
haben. Haben Sie alle Leben verloren, 
erscheint „GAME OVER" blinkend in 
der Mitte des Bildschirms. Zum Start 
eines neuen Spiels müssen Sie die Ta- 
ste „j" drücken. Gesteuert wird das 
Programm mit dem Joystick! 
PUNKTEVERTEILUNG: 
Pro Treffer: 10 Punkte - Runde 
Nach jeder Runde: den Bonus, der 100 

- Runde am Anfang der Runde betrug 
und der pro gegnerischem Schuß um 1 

- Runde erniedrigt wurde. 



II 



(BIP- 



4 4 jjlj . I t^Mf*/*!*********'*!***/*/*»*************** I 



120 

im 

140 

\m 

\m 

170 
180 
190 

?m 
210 

270 
730 
240 
250 

2m 

770 

tm 

790 
300 
310 
320 
330 



\ RHKETEN- 

f 

I BE8CHU8S 

i 



! <C 51984/85 BY 

\ 

I THOMAS GOERUCH 



! USE8 6259 BYTES 






! 




I®P+ 

NE*i M CALL CLEAR 

CALL SCREEhK2)'i CALL MAGNIFY(3 5f » RRNDOMIZE 

IF NE*1 THEN CALL TITEL 

OPTION BASE 1 

DM S<3),ACS) 

GOTO 360 " B,R,R1,R2,R3,L,GE>AN>C,0,IOX>Y. 

HALL HCHAR ■ < CALL CHAR ' ' CALL COLOR ' ' CALL 
340 CALL FEEK « i CALL JOYST ' i CALL POSITION i 
ALL MOTION »i CALL COINC «« KEP- 
350 !*** INITIALISIERUNG *** 
3K0 IF NE-0 THEN CALL DEL8PRITECHLL)« • GOTO 530 ELSE CALL CHRRC 128, »00Ö0013F2327 



I,NE,LE,SG*0 i i CALL 

KEY i « CALL SOUND ■ i 

CALL LOCATE < ■ CALL 



DEL8PRITE i « 
CALL SPRITE 
PATTERN ' i C 
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27.1F27Z7Z52!53F7FFFF"F000000F88eceC8FBC8C8484eF8FCFEFE")l RRKETE AUF STARTRAMPE 

370 CRLL CHRR£96, "000B00010307070707070505000000000000000030C0C0C0C0C04040000000 

80")! RRKETE IM FDJG NORMAL 

380 CRLL CHRRC 100, "000000010307070707070503070F152A0000000080C0C0C0C0CB4040C0E05 

0A8 w )f RAKETE IM FLUG & ANTRIEB 

390 CALL CHRR< 132, " 0000071 F3F7FFFFF7F3F1F07010100000000E0F8FCFEFFFFFEFCF8E080800 

000")! GEGNER 

400 CRLL CHRR< i3S,"01071F3F7F7FFFFF7F7F3FlF070100009RBDB5DBBD5DF55ADBBDD55RA5AB0 

300" >■ ASTEROID-FLUG NACH LINKS 

410 CALL CHAR< 140/ " WBDB5DBBD5DF55ADBBDD55RR3AB00008BE0FBFCFEFEFFFFFEFEFCF8E08B0 

R00")! ASTEROID-FLUG NACH RECHTS 

4?0 CALL CHAR< 124, "000000000103070F0F0F0703000000000000000080C0E0F0F0F0E0C000000 

000" )! BOMBE 

430 CRLL CHHR< 1 04 > " 00000 1 050 A 1 D2B5D5D2B 1 D0B050 1 800000008020 1 R8BC A295DEBCA840800 

000")! EXFLÖ8IÖNSW0LKE 1 

440 CRLL CHAR? 108, "01050RlD2B5DDAA9DBBD3D2BlDBB050i802010R8BCDEBBDBR295DEBCA8102 

080")! EXPLOS IONS WÖLKE 2 

4*0 CALL CHARU19; ,, 00000000000000FF M ; 120; "10", 121, "00001818"; 122, "01000000000800 

80 , S'iZ3i ,, 0000000000000303 H >f BODEN & STERNE 

4*0 ' ##* STERNE *** 

47« FOR 1*1 TO 100 " RANDOMIZE " CALL PEEKC -31880, RH • ■ RANDOMIZE " CALL PEEK 

f-3lB00jR2?" RANDOMIZE " CALL FEEK< -31880, R3 ) 

430 CRLL HCHAR<INT<R1^4-8+3),INT<R2/3.4f2>,INT<R3/25>+120>" NEXT 1 

490 CALL VCHARC 1 , 1 , 32 , 23 ) " CRLL VCHAR< 1 , 32 , 32 , 23 ) 

5B0 CALL HCHRR<24,1, 1I9;32)" CALL HCHAR< 1,2,32,30) 

510 DISPLAY AK2;1>s"mX il zim MX y«< (t z<uz xz" 

520 f *** SPIELBEGINN *#* 

530 DISPLAY AK 1,1?'" PUNKTE»" " DISPLAY AK 1 , 15?' "LEVEL' " " D 1 8PLAY AK 1 , 24 ) « " 

540 LE«0 ' ' SC*- 10 » « L*3 

550 LE»LE+1 : i 80SC+B » { B«1S0*LE " IF LE>4 THEN GE-GE-1 

560 SO*SC+90*<LE~1>" IF LE«INT(LE'2)*2 THEN L*L+1 

570 Aa>,R<2);A<3>,RC4),A<5),A<6>*0 «■ FOR 1*40 TO 200 STEP 88 " CALL SPRITE<#< 

I+40V80+3, 132, 16,20, 1,8,-6 5" NEXT I 

m® FÖR 1*200 TO 40 STEP -80 " CALL SPRITE<#C I+40V80, 132, 16,40; 1,0,6)' ' NEXT I 

590 CRLL 8PRITEC#7, 128, 16, 176, 128) 

600 FOR 1*1 TO 1+LE+GE " RflNDOMIZE "CALL PEEKC -3 1 880 ; R 1 )< « RANDOMIZE " CRLL 

PEFK< -31880, R2>« ' CALL SFR ITE<# 1+7, 140, 16,60+1*28, 20+R 1,0, R2/20+LE) 

610 NEXT I 

620 FOR 1*1 TO I+LE+GE " RANDOMIZE " CRLL PEEKC -31880, Rl >" RANDOMIZE " CALL 

PEFKC -31880, R2)' ' CRLL SPRITE« #1+17, 136, 16,60+1*20, 155+Rl,0,-(R2/20+LE)) 

630 NEXT I 

640 SCU,SC2>,S<3)*0 

650 CRLL MOTIQM#7,0,0)" CALL LOCHTE* #7, 176, 128)' ' CALL PRTTERNC#7, 128) 

660 SC*SC+10*LE " DISPLAY AK1,8)'USING "#####" 'SCj " DISPLAY RK 1,21 >iUSINC "# 

#"*L'Ei"' DISPLAY AK1,28)'USING "#"'L 

670 ! *** RLS 8THRTRRMPE *** 

680 RANDOMIZE " CALL PEEKC~31S80,R>" IF R>B0 THEN CRLL 8<SO;RO;B;LE>EL8E RRN 

DOMIZF !■ CALL PEEKC-31880;R)" CALL CQLORC 12, INK R/7. 2+3), 2)" DISPLAY AK 3, 12) 

»0 

690 CALL SOUNDC-4250;-8,5) 

700 CALL JOYSKl,X;Y)" CALL MOTION* #7,0, X/2)" CRLL KEY<1,X,Y?" IF X«18 THEN C 

ALL PRTTERN<#7,I00>" CALL MOTIONC #7,-4,0)" GOTO ?m 

710 IF S<1)*1 THEN CRLL CÖINC<#7,#26, 10, 0" IF C THEN CALL E<D" GOTO 590 ELSE 

CRLL P0SITI0N<#26,X,Y)" IF X>1 80 THEN CALL DEL8PRITE<#26>" S< 15*0 
720 IF SC 2 5*1 THEN CALL CÖINC<#7,#27, 10, 0" IF C THEN CALL ECD" GOTO 590 ELSE 

CRLL PÖSITI0Ni:#27,X,Y)" IF X>1B0 THEN CALL DEL8PRITE<#27>" S<2>*0 
730 IF 8<3?*1 THEN CRLL C0INC<#7,#28, 10,C>" IF C THEN CALL E<D" GOTO 590 ELSE 

CALL P0SITIÜN<#28;X,Y?" IF XM80 THEN CALL DELSPRITE<#28 5" S<3?-0 
740 GOTO 680 
75PI ' %%% FsTART %%% 
7fk RANDOMIZE ■ ' CRLL PEEKC -31880, R>» ' IF R>80 THEN CRLL SC SC ),A< >,B,LE)ELSE RAN 
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DOMIZE ■■ CRLL PEEK* -3188(3, R ?« < CRLL COLÖR* 12, INT* R/7. 2+3), 2)" DISPLAY RT*3,12> 

>B 

770 CRLL PRTTERN* #7, 36?" CRLL SOUNDC -4250/ -5/10) _ _, v _^ m _ 

7R0 TF S<I>*I THEN CRLL C0INC*#7,#26, 10,C>> ' IF C THEN CRLL E<L>» » GOTO 590 ELSE 

HRLL POSITION* #26,X,Y)- IF X>180 THEN CRLL DEL8PRITE*#26>« » 8« 1 )*0 
790 IF 8(2>-t THEN CRLL C0INC*#7,#27, 10, C>' ' IF C THEN CRLL E*L>" GOTO 590 ELSE 

CRLL PÖ8ITIÖN*#Z7,X,Y)m IF X>180 THEN CRLL DELSPRITE*#Z7>" S*2)*0 
800 IF S*3)*I THEN CRLL CÖINC*#7,#28, 10,C>< ■ IF C THEN CRLL E<D» ' GOTO 590 ELSE 

CRLL P0SITI0NC#28,XiY>M IF X>180 THEN CRLL ^LSPRITE(.#28)»; 8C3) = 
810 CRLL KEYU,K,0?" IF K«18 THEN CRLL PRTTERN*#7, 100)' -' CRLL JOYST* 1,X,Y>" CR 
IL MOTIÖN<#7,-S,X/Z?ELSE CRLL JÖYST* 1,X,Y?" CRLL MOTION* #7, -l,X/4> 
820 CRLL POSITION* #7, K,ö>" IF K<60 THEN -070 , _, . 

830 FOR 1*8 TO BKS >' CRLL CÖINC*#7,#I j 14,C?' > IF C THEN CRLL E<L>" GDTÖ 590 

853 FOR I-I8 TO 18+LE " CRLL C0INC*#7,#I, 14, 0« * IF C THEN CRLL ECL3' • GOTO 590 

G70 FOR Iüi'tö 6 '■'■ CRLL C0INC*#I,#7, 16,0' > IF C THEN CRLL T*I,RC),RN)m IF RN* 

THEN 550 ELSE 640 
«80 NEXT I ■ * GOTO 760 
890 ff?F* 

900 l *** UNTERPROGRHMM %t% #** BOMBENHBUURF %%%• 

9?0 GOTO 930 H LE'B,R,X,Y,5U3,S*Z3,S*33,H<I>,H*2>,H*3),R*4>iR*5>,R<6>'< CRLL S 

PRITE '« CRLL POSITION •« CRLL SOUND *■ IBP- . 

930 IF S*1H3*2H3*3)'*3 THEN SUBEXIT 

940 8«B-LE 

930 RflNDOMIZE < ! CRLL PEEK* -3 1 880 , R ? 

360 ON INT* R/17+1 5GDT0 970.. 990, 1010, 1030. 1050, 1070 «...., 

•970 IF HCl 3*1 THEN 990 ELSE CRLL POSITION*» 1,X,Y>< i IF 8(13-0 THEN S* 1 )*1 u CRL 

1 SPRITE*#26 J ;1Z4, 16,X,Yi3,03" SUBEXIT ™. mJ „. „„„ r,,,, 
9R0 IF S*2>*0 THEN 8*2>*i " CRLL 8PRITE*#27, 124, 16, X, Y,5,0)' < SUBEXIT ELSE 8«,3.) 
*i ii CRLL .SPRITE* #28,124* 16, X,Y>5j0>< ' SUBEXIT 

990 IF «23*1 THEN 1010 ELSE CRLL POSITION* #2, X,Y>" IF 8* 1 >*0 THEN 8* 1>»1 »« CR 

I L SPRITES #26, 124. 16, X,Y,5,0> : ' SUBEXIT ^ >rt 

1W IF 8*2")*0 THEN S*2)«I " CRLL SPRITE*#27, 124, 16, X, Y,5#8>" SUBEXIT ELSE S*3 

>«l i. CRLL 8PRITE*#2S,124,1S,X,Y,5,0?" SUBEXIT „ aKr . 

inie tf FK3>«1 THEN 1030 ELSE CRLL POSITION* #3, X, Y>« » IF 8(1 >«0 THEN S* 1 >*i n C 

RLl 8FRITE*#26,124,16,X,Y,5,0>' ' SUBEXIT 

102« IF 8(Z)«0 THEN 8*23*1 " CRLL SPRITE* #27, 124, 16, X, Y,5,0>" SUBEXIT ELSE 8Cd 

)»1 ü CRLL SPRITE*#28, 124, 16,X,Y,5,03« ' SUBEXIT „..„,,-,., , 

103R IF RC4)*I THEN 1050 ELSE CRLL POSITION* #4,X,Y>" IF S* 1 >*0 THEN S* 1 ;*1 " C 

RTL SPRITE*#26,124,I6,X,Y,5,0)" SUBEXIT „„.„„* „ <-*. *** 

1040 IF 8*2>*0 THEN S*2)*l «» CRLL SPRITE*#27, 124, 16,X,Y,5,0)<< SUBEXIT ELSE S',3 

1*1 " CRLL SPRITE* #28, 124, 16, X,Y, 5, 03- SUBEXIT 

10*0 IF R*5>*1 THEN 1070 ELSE CRLL POSITION* #5, X, Y>" IF 8< 1 >»0 THEN 8* 1 >1 .■» C 

RLL SPRITE*#2S,124,1S,X,Y,5,0>< » SUBEXIT «,,«r-„. T PI „ r «.« 

1TC0 IF S*2>*0 THEN 8*2>*1 " CRLL SFRITE*#27, 124, 16,X,Y,3,0>" SUBEXIT ELSE S<3 

)«1 m CRLL SPRITE* #28, 124, I6,X,Y,S,0>- SUBEXIT 

1070 TF R<6>*1 THEN 970 ELSE CRLL POSITION* #6, X/'O" IF 8* 1 )«0 THEN S* 1 )«1 «' CR 

LL SPRITE*#2S,124,16,X,Y,5,0>" SUBEXIT n ^ ei(ßD;TT „ e -- e ,* 

10S0 IF S*2>«0 THEN S*2>*1 " CRLL SPRITE* #27, 124, 16,X,Y,S,0)'^ SUBEXIT ELSE S<d 

3*1 ü CRLL SPR1TE*#28,124,1S,X,Y,S,0>" SUBEXIT 

1090 'GP+ 

1100 SUBEND .*«.*■ 

1110 I *** OHTERPROGRFN1 JWWt «^ GETROFFEN *** \ 

1130 GnTO E 1140 *' L t. CRLL KEY -CRLL COLOR «» CRLL MOTION «' CRLL DEL8PRITE . 
. CRLL LOCRTE " CRLL PRTTERN m R,B,K,S*0 ' ' l«P- M , pni|ll ^ ^^ ^ _. „ . _ 
1140 CRIL MOTION* #7, 0,0 )• ' CRLL PRTTERN* #7, 104) ' « CRLL SOUND* -400, -f,0>" CRLL P 
HURE '■ CRLL PRTTERN* #7,108 >» ■ CRLL DELSPRITE*#26,#27,#28) „ rTTM 

"SS CRLL SOUND* -400, -6,0 >h CRLL PRUSE «* CRLL LOCRTE* #7, 176, 128) n CRLL PRTTER 
N* #7 , 128 j ' * CRLL SOUND* 1 , 30000 , 30 > 

fi? Computronic 



Computer-Börse 



fc Verkäufe * Verkäufe * Verkäufe * 



Orig. . Fernlehrgang 
.Kompakt-Computer" 
(ca. 500 S.), inkl. Basic* 
und Pascal-Kurs für DM 
150,-(NPea. 500-), zu 
verk., Dirk Glebe, Dahler 
Berg 23, 5600 Wupper- 
tal 22, Tel. 66 9412 



T199/4Ä: Tl und Ex-Basic-Pro- 
gramme zu verk., Info gegen 
Rückporto, B. Knedel, Tul- 
oengasse 16, 3171 Weyhau- 
sen, Tel. 53 62 / 7 1 1 87 

Verk. TI99/4A, DM 180-, 
M. Zeise, Am Wasserturm 45, 

5600 Wuppertal 1, Tel. 
02 02 / 72 07 58 

TI99/4A. Ext. -Spiel nur für Er- 
wachsene (Altersang.), zum 
Preishit von nur DM 10 — inkl. 
Porto, Cass. u. Infoprogr. in 
Umschlag an T. Karbach, 
Remscheider Str. 18, 5650 
Solingen 1 

Verkaufe ZX 81 + Drucker + 
32 k + Netzt. + Softw. zus. 
400 - DM, ' D. Knuth, 
Kaulbachweg 7, 7000 Stutt- 
gart 1, Tel. 07 11/85 88 91 



TI99/4A. Ext. Dateien für 
alle Bedürfn., z. B. Video- 
kart., Adresskart., Kunden- 
kart., Diskettenkart., Bü- 
cherkart., nur auf Disk., 
Sonderpr. DM 20- in 
Umschi. an Karbach, Rem- 
scheider Str. 18, 5650 So- 
lingen 1 



Verk. Apple-Comp. 

(kompl.), 64 k, ext. Tast., 
Cursor + 10er-Block, 43 
F-Tast., orig. Disk; 
Contr. RS 232, Modem 
+ Softw., Paddle + Joy, 
UHF-M., VHB 2200- 
DM. K. Harbich, Tel. 
04 21 / 58 48 14 



Wegen Hobbyaufgabe 
abzugeben: 30 Lehr- 
und Ubungsprogramme 
auf Cassette in Basico- 
de-2, für nur DM 85- 
(Vorkasse). Johann Fed- 
dermann, Postfach 

10 2102. 2000 Ham- 
burg 1 



TI99/4A. Ext. korhfor- 
tabl. Menü, gest. Re- 
chenprogramm mit 14 
Rechenarten, jetzt zum 
Sonderpreis. Cass. nur 
DM 10-, Disk. DM15-, 
in UmschL an D. Kar- 
bach, Remscheider Str. 
18, 5650 Solingen 1 

OOOOOOOOOOOOOOOOOO 



VC 20. Suche Basic-Literatur 

und Programme für VC 20 oE. 
W. Kempf,. Postfach 8 05, 

2940 Wilhelmshaven 

aDaQDDaDDGODDaDDDa 



H99/4A. Drucke Ihre Tl- 
EXT-Listings, egal wie 
lang. Einfach Ihre Cass. 
+ 10- DM in Umschlag 
und einsenden an Diet. 
Karbach, Remscheider 
Str. 18, 5650 Solingen 1 



O 

O Verkaufe Super Adven- 
O Iure: „Die Jagd nach 
O dem Schatz" für Spec- 
g trum 16/48 K nur 10- 
O DM, von Christian Lud- 
O ger, August-Claas-Str. 
o 34( 4834 Harsewinkel 

O 



□□□□□□onann □□□□□□□ 



• Tausch * 



OOOOOOOOOOOOOOOOOO 



o 
o 
o 
o 
o 
o 
o 
o 



ZX-Spectrum: Software- 
Tausch. Schickt eure Li- 
ste an Anton Heisinger, 
Ungargasse 1 1 , 7350 
Oberpullendorf (Austria) 



o 
o 
o 
o 
o 
o 
o 
o 



OOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOO 



* Kontakte * : 



Spectrum User Club Wup- 
pertal nimmt wieder Mitglie- 
der auf! Neues Konzept! Für 
alle ZX-Freaks ein Muß! info 
gg. Rückporto, R. Knorre, 
Postf. 20 01 02, 5600 Wup- 
pertal 2 



Kaufe Software für VC- 
20, tausche auch Com- 
puterhefte. Angaben an: 
Harald Auer, Karlstr. 27, 
7990 Friedrichshafen 



Tausche/Verkaufe Atari Prg. 
16 K. Uwe Schöneberger, 

Sonnenstraße 18, 6652 Bex- 
bach 2 



Computronk I\161IläIlZ61Q£Il nur gegen Vorkasse 

Bitte veröffentlichen Sie ab nächstmöglicher Ausgabe unter der Rubrik: 

□ Verkäufe I I I I I I I I I ! I I i I I i I I I I I I I I I I I I I 


ü Ankäufe 


□ Kontakte j 


G Verschiedenes s 


G Geschättsemptehiungen 


U 1 ausch 


Bitte jeweils 28 Buchstaben pro Zeile! Bitte Absender nicht vergessen! 
Achtung ** Achtung ** Achtung ** Achtung 

Preis je Kleinanzeige: Private Anzeige DM 10,00 

Chiffregebühr DM 10,00 je Anzeige 


1-1 . i Name/Vorname: 

einsenden an: 


Tl'OIliC- Verlag Straße, Nr, PLZ/Ort: 

Postfach 41 .,_,.,_, 

*iAAA \h? Iki'üt-vl 1 privat n C.hiffrp! n 


O'*'*** VV tillltilcU i. Datam, Unterschrift " {bitte ankreuzen) 



;omputronic 



63 



Texas 
Instruments 



'#** ERREICHT *** 
• CBLL SOUND » « I..RN.RU >,H<:2>,R<3>..H<4),FK5>, 

IF RN<6 THEN CALL DELSPRITE<#26,# 



1160 L-L-1 ■' IF L>0 THEN SUBEXIT 

1170 ! *** LETZTES LEBEN *** *#* VERLOREN *** 

1180 FMNTCRND*M+3>" B«INKRND»i4+3)» ' CALL CÜL0RC3,fl,2,6,H,2,7jfl,2,8,fb2, 12. 1 

NTC RND*14+3 >, 2, 3, B, 2, 4, B* 2 > 

11.90 DISPLAY RTC12,5)BEEP'"'G H II E V ER" ■■ DISPLAY HT< 12,3)» "X zu < » xz 

<" 
1?08 CALL KEY(0,K,S)' i IF K*106 THEN RUN 290 ELSE 1180 
1210 !SP+ 
1220 SUBEND 

1230 f *** GEGNER *** 

1P40 SUB Kl,fl( ),HN) 

1250 GOTO 1260 < » CALL DELSPRITE 
fi<S>«0 : » fgp- 

I2€0 CALL 5OUND<-I000,~g,0? 

1270 CALL DELSPRITE(#I?: i FKI >*1 n flN*HN+l 

27 ..#28)' ■ SUBEXIT 

1280 AH*0 m CALL DELSPRITE<ALL) 

1290 !SP+ 

1900 SUBEND 

1310 ! *** UPG. PAUSE *#* 

1320 SUB PAUSE 

1330 I»0 " IffiP- 

1340 FÜR 1*1 TD 100 » « NEXT I 

ts^e u?p+ 

1360 SUBEND 

1370 ! *** (JPG. TITEL %%% 

1380 SUB TITEL 

1390 CALL VCHRRC 1 > 1 , 42, 24 > • i CALL VCHflRC 1 . 32. 42. 24 > 

(L HCHHR<24.2..42.30? 

1408 CALL DOLORS 2, Iß, 2,11, 16.2, 12, 16,2,5. 16.2,6, 16,2,7.. 16, 2, 8> 16, 2. '3, 16. 2, 4. 16. "2 

) 

1410 DISPLAY AT<24,7)» ,, RAKETEN-BESCHUSS"; »» DISPLAY flTd.B?« "<C)1984/B3 B¥ H i«» D 

I SPLAY RTC 2,75'" THOMAS GOERL I CH" j 

1420 SUBEND 



CALL HCHHRC 1 , 2 , 42, 30 > m CR 



Spannendes Flugzeugduell um die Luftherrschaft 




Als 



Führer eines bewaffneten 
Kampfflugzeugs haben Sie den Auf- 
trag erhalten, in Ihrem Einsatzgebiet 



die Luftherrschaft wiederzugewinnen, werden! 



Nach Ihrem Start 
dringen Sie in den 
von feindlichen Flug- 
zeugen beherrschten Luft- 
raum ein. Plötzlich werden Sie von 
Ihren Gegnern angegriffen. Schießen 
Sie den Feind ab, bevor Sie getroffen 



Gesteuert wird Ihr Flugzeug mit 
den folgenden Tasten: 
S - Flugzeug fliegt nach links 
D - Flugzeug fliegt nach rechts 
L - Auslösen eines Schusses 
Die „Alpha-Lock" -Taste muß ge- 
drückt sein. 

Sie können zwischen Tag- und Nacht- 
flug wählen. Beim Nachtflug sehen Sie 
Ihren Gegner nicht. Sie können ihn 
jedoch durch einen Peilton orten. 
Wenn ein hoher Ton erklingt, befindet 
sich das feindliche Flugzeug rechts 
von Ihnen, bei einem tiefen Ton links 
von Ihnen. Hören Sie einen mehrstim- 
migen Ton, dann haben Sie Ihren Geg- 
ner genau vor sich. Dies ist der richti- 
ge Moment zum Schießen! Wenn Ihr 
Rivale zurückschießt, ist Ihre Feuerta- 
ste gesperrt. Sie müssen dann dem 
Schuß ausweichen, um einem Treffer 
zu entgehen. 
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18 RAHDOMIZE 

20 CALL CLEAR - CALL CHRRC3S, "FFFFFFFFFFFFFFFF" )" CALL CHRR<35, "FFFFFFFFFFFFFF 

FF") 

■10 CAf L CHRRX48, »008000800881 070A0D070A0D03808000080888000048A850E0B0D8604800088 

H" ) _._ 

40 DATA 0Rflflflflflfl0:W0F0F0F0F07030000000000000000C0E0F0F0F0F0E0C000000000 •' Ö00000Ö 

1031 F3F7FFF7FFF7F 1 F0B08008088E0F8FEFFFFFFFEFCFCFEFCF88800 

SÖ DATA 0000000000000000020202FF0F0906000000000800000000404040FFF090ei000; 0000001 

00R 0402R705R3R 1 RR00000000000000000040S0 1 0A0C068D00884000Ö 

60 " DATA 0000000000020 1 080503960B 1 020000000000008 1 02040E0A0C0800000000000 , 0000000 

ftRRflR0fiflft0R0RR80000@00000000000 101010101010101 00000000000 

7« DATA 0000000000000404048404009000000000000000000020282020200000000000.» 8000080 

fi0flft0R0flflfi2ä?020H000flfl00880000000000000004840400000000000 

S0 DATA 000008000800000800080 1 808888000808800808000000888800800000000008 , 0800880 

00000000202 1 F030000000000000000000000004040F8C00000080000 

98 DATA 0000Ö0080403030 1 000880008000800000000080800020C0C828 1 08000000008 , 0808800 

m 1 00040R0R040R 000088800 0880888 1 020C8C08008000 880080088 88 

100 FOR 1*96 TO 148 STEP 4 . . READ A* :. CALL CHRRCI.R»)" HEXT I ^,-rrt 

110 FOR J~3 TO 9 > = CALL COLORa, 16,2)=' HEXT I ■■ •■ CALL 3CREEW2)'"- UHLL DELüPRI 

TF* AI L > : < CALL MRGNIFY< 1 > : : CALL COLÜR< 1 , 12, 2 ) 

1>A DISPLAY ATX ?4 . t ) > "" " DISPLAY ATX 5, 1 ) ■ "TAG- ODER NACHTFLUG LI AU '?" 

130 flCCEPT RK ie. 4 WflLIDFITEC HUMERIC, "TN" )eEEP-B« '■ ' IF B»-"N" THEN G08U8 630 EL* 

f GOSHB fi?R 

140 DISPLAY ATU6,4) = "SCHWIERIGKEITSGRAD Ci 83" == flCCEPT ATX 28, 5)VflLIDflTECNUMER 

Tr.»t?345fi78" >BEEF'SC == IF SOS THEN 148 

l^ RC-SC+2 ' ■■ GE-SC ! : RH*SC*3+7 : ! FL*3 ' 

1 68 CALL HCHRR< 1 0,1, 32 , 32 ) ^ - - - . 

170 CALL HCHAR«: 5, 1,36,32)= = CALL HCHAR<.20, 1,36,32) = = J~38 - FOR I-J. TO 4 <= UHL 

I SPR I TB< # I ■ 25 , 2 , 33 . . J , , - 1 88 ) • ■ J« J+58 : : NEXT I 

IRR .isSR :: FOR I-P-1 TO B - CALL SPRITEC #1,35, 2, 153, J, 0,-100) ' ! J-J+50 " NEXT I 

190 DISPLAY ATU.3) = "PRESS AHY KEY TO PLAY" '• ■■ DISPLAY R7X8,8)="F 1 R E F X" •• 

-■ DISPLAY RIX 16,3):" CO. 1985 BY = DIRK BLUDflU" 

?RR DTRPIAY AK 5,2 >SIZE< 27 )' "INTERFACE SOFTWARE PRESENTS" 

?1R FOR i'al TO 3 - FOR 3D~288 TO 558 STEP 28 = : CALL SQUND<55,SD,8, SD+15,8,588, 

0V= NEXT SD •••• HEXT I j __..,,. 

2?0 CALf KFY'r0.K.S>= : IF S=0 THEH 228 " CALL CLEAR '= DISPLAY ATX 24, 1 JSIZEU 1 ) : 

" Mi IN I T T ÖH ' " ■■ ■■ DI SPLAY RT< 24 , 1 8 >S I ZE< 3 ) : AH 

?'38 DISPLAY fiT<24,20>SIZEC9)'"GEGNER'" :: DISPLAY RTC 24, 27 )SIZE< 2>-FL 

248 CALL DELSPRITE<RLD" CALL MRGNIFY<4>" CALL SCREENCFH)" CALL SPRITE* #9, 96, 

PB . 1 .1 28 > 

250 CALL SPR I TE< #1,1 84 , GG , 1 55 , 1 28 > < . CALL SPR I TEX #3 , 1 32 , CC , 1 4 , 1 28 > = > CALL COLOR< 

1 • AF . AF ) 

260 CALL SPR I TEC #4 , 1 88 , RA ,138,18 . #5 , 1 88 , AR , 48 , 60 , #6 , 1 08 , AA , 1 , 1 28 , #7 > 1 00 , AR , 1 80 , 

160) 

270 CALL SPRITEC #8, 108, RR, 70, 210) ^ r _ ä „ r r . 

2R8 FOR 1=4 TO 8 •■ ■ CALL MOTION«: #1 ,58-8)- NEXT I ■• •■ CALL MOTI0N':#9,8, W,#J,8,R) : 

: CALL PATTERN'' #1,104) 

298 IF WW«1 THEN 788 

388 IF B$="N" THEN GOSUB 648 

318 GOSUB 480 

T?0 CRH KEYCA.K.R)- IF S=0 THEH 298 •• ■ IF K=83 THEH 348 ELSE IF K»b8 THEN "390 

FJ-SF IF Wl-i=l THEN 788 ELSE IF K-76 THEH 440 ELSE 290 

?*?.& GOTO 388 

340 CRf L PRTTERH»;# 1,112)= '■ FOR 1=4 TO 8 •' CALL nOTION(#I,20,50 >; ■ HEXT I " CflL 

L MöflÖfk#9,8,15)^ R=5 = : IF ZAE=0 THEN R«15 

358 CALL M0TI0H<#3,8,R) 

:^.8 IF WW=1 THEN CALL MOT I OH< # 1 8 , 15,R>= < GOTO 710 

378 IF B*«"N" THEN GOSUB 648 

38« CALL KEY<8,K,S) : = IF S«0 THEH 288 ELSE IF K=76 THEH 448 ELSE IF K-68 THEN 39 

fi El. SE GOSUB 480 = • GOTO 378 

Wi f:RU PATTFPN':'#1 -108): : FOR 1=4 TO 8 •■ ■ CALL MOTION':; #1 ,28,™58) : ■ NEXT I =-' CA 

U MnTIONC#9,0,-15) ! = R«-5 ■■ '■ IF ZAE-8 THEN R— 15 
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GOTO 490 ELSE RETURN 
GOTO 508 ELSE RETURN 



ZflE-i 
ZRE=*2 



RETURN 
RETURN 



400 CALL MÖTIÖN<#3,0,R) 

41F1 IF WW«1 THEN CALL MOTION<#10j 15,R) = • GOTO 710 

420 TF B*= M N" THEN GOSUB 640 

420 Hfli j KEYfß.K.S)' : IF S«0 THEN 280 ELSE IF K-76 THEN 440 ELSE IF K«83 THEN 34 

ELSE GOSUB 480 ••■■• GOTO 420 

448 RN~RN~1 ■■•■ IF RN=0 THEN 598 ELSE DISPLAY RK24, 10)3IZE<3)'RN »■ CRLL SOUND« 

0fi . — S < > 

450 CRLL SPRITE* #2 , 116, BB, 155, 128,-17,0)= > GOSUB 470 == CRLL PflTTERN<#2, 128) = • G 

nsUB 470 ■■•■ CRLL PRTTERN<:#2.. 124)' ' GOSUB 470 

4m CRIL PflTTEPNC#2,128>= ' CRLL CO I NCC #2 , #3 , 10,T)> « IF T*»l THEN GOTO 530 ELSE C 

RLL DELSPPITEC#2>:' GOTO 300 

47« FfiR M-l TO 160 '■ = NEXT W ■■ ■■ RETURN 

480 IF ZRE=2 THEN 0=0+1 • ■• IF Ö=SC THEH ZRE,O*0 

4*0 TF 7RE=1 THEH 00+1 •• IF 0=SC THEH ZRE,O=0 

™Ö H-IHKPHt>*6)+i : : IF H*l THEN 660 ELSE IF H<4 THEN 510 ELSE IF H<6 THEN 520 

EISE CRLL PRTTERH<#3,132>= •■ CRLL MOTION* #3, 0,0)- RETURN 

R 1 CRLL PRTTERNe: #3 , 1 40 ) : • CRLL MOT I ONC #3 , , -20 ) ! 

520 HRLI. pflTTERNc:#3, 136>' = CRLL MOTION< #3,0,20 >" 

"iSfl IF B*="N" THFN CRLL PÖSIT10N(#3,U, V) = = CRLL SPRITE<#3, 132, 16.. U, V) 

R4Ä TRI L DELSPRITE(#2>" CRLL PRTTERN<#3,40)^ CRLL SOUNDC 1 000 , -7 , ) ■ = GOSUB 700 

= •• CRLL PRTTERNC #3,14M>: : CALL MOTION< #3, 15,-10) 
5^0 CRLI POSITION-; #3, U,V>" IF UM 59 THEN 560 ELSE 550 

SfiÖ FLsFL-1 :: IF FL-0 THEN 5?0 ELSE DISPLAY AT<24,27)SIZE<2>'FL ■ '■ GOTO 240 
5?ft CRLL DELSPPITE<#3>: = DISPLAY AK 1,8 V "GAME WON !!!" 

SRR FOR 1 = 1 TO 9, ■■ -. FOR SD=50Ö TO 1000 STEP 40 ■■ CRLL SOUNDC 100, 8D,0,8D+10,0,40 
H . V : HEXT SD = = NEXT I < ■■ GOTO 600 
R90 DISPLAY RTC 1,8)= "GAME LOST !M" - FOR SD-509 TO 200 STEP -10 :: CALL SOUND< 

1 m , SD , 9 ■ 230 , , SD- 1 , ) : : NEXT SD 
600 DISPLAY RTC 10,5V "F i R £ F X" 
AI Pi DTSPI AY ATC15». 1 )= "DO YOU WISH TO PLAY RGRIN ??" 
NIIHFRIC.''YN ,, )BEEP'Q* :: IF QS^'Y" THEN 720 ELSE END 
fi29 flfl«16 : : BB=7 : : C05 = = GG=2 = = Ffl«6 ! : RF=8 = 
g38 RR=5 ■•■• BP=11 := CO? ■■ '• GOIS ■■■- FR**2 " RF=2 
f.äfi C.fiU POS I T 1 0N< #3 , U , V ) ■ ■■ I F V > 1 32 THEN CALL SOUND«:: i 00 , 500 , >ELSE I F V< 1 24 THE 
N i":RL ! SOUND< 1 00 , 1 50 , )ELSE CRLL SOUND< 250 , 300 , , 700 , > 

SR0 RETURN 

ß60 WW*i 

fi7fi r:RL I PRS T T I DHC #3 , U , V ) : : CRLL SPR I TE( # 1 , I 28 , BB , U , V , 35 , > : : GOSUB 320 

PRTTFRH<#10,124)= = GOSUB 320 ■> * CRLL PRTTERN<#10, 120) 
6RB GOSUB 320 ■■ ■■ CALL PflTTERN<#10. 1 16) ' ' CRLL COINCXtlB, #1, 17,L)= •■ 
GOTO 690 ELSE CRLL DELSPRITEC #10)= = WW«6 - GOTO 300 
fiSÖ CRLL DELSPRITECttlR): : CALL PRTTERN<-#1^40)- CRLL SOUHD<1000, 
- CRLL DELSPRJ.TE<#1>= = WW«0 ;: GOTO 590 
700 FÜR 1 = 1. TO 45 = = NEXT I = = RETURN 
71.0 FOP I = l TO 50 = = HEXT I = = RETURN 
720 CRLL HCHRR< 19, 1 , 32 , 32 ) = = CALL HCHflR< 20, 1 , 32 , 32 ) • • GOTO 1 10 



-■ flCCEPT flT<20il0)VPLIDflTE< 

RETURN 
RETURN 



CRLL 
IF L*-l THEH 

■7,0): : GOSUB 70 



Widerstandsdecod^erung 



J GQ-Gr Hobbyelektroniker weiß um 
das Problem, einen geeigneten Wider- 
stand anhand seiner Farbcodierung zu 
ermitteln. Dieses Programm errechnet, 
nach Eingabe der genormten Wider- 
standsfarben, den genauen Wider- 
standswert in einer geeigneten Dimen- 
sionierung (Ohm, KOhm, Megaohm). 
Dabei wird sowohl für die Kohle- 
schichtwiderstände (4 Ringe) als auch 
für die Metallschichtwiderstände (5 
Ringe) eine Berechnung vorgenom- 




men. Darüber hinaus wird der Tole- 
ranzring ausgewertet und prozentual 
ausgedruckt. Anschließend werden 
die Absolutwerte ausgedruckt, und 
das Programm verlangt eine neue Ein- 
gabe, Falsche Eingaben werden mit ei- 
nem Rücksprung zum 1 . Farbring aus- 
gewertet. Die Widerstandsfarbabkür- 
zungen werden mit einer einleitenden 
Farbtabelle erklärt. Dieses Programm 
gibt jedem Hobbyelektroniker die 
Möglichkeit, mit Hilfe des Computers 



eine genaue Bestimmung der Wider- 
stände vorzunehmen. Lästige Berech- 
nungen anhand der Farbbezeichnun- 
gen .entfallen gänzlich. 
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HOME : TEXT 

VTAB 2: HTAB 10: PRINT " WIDERST ANDSDECODIERUNG" 
VTAB 4: PRINT " ABKUERZUNGEN DER FARBEN" 



==> BR 
==> RT 
-=> OG 
==> GE 
==*> GN 
==> BL 
PRINT 



CHRS (45)5 1 
LILA 
GRAU 
WEISS 
GOLD 
SILBER 
OHNE 



NEXT : 
==> LI 
"> GR 



PRINT 



VTAB (6) 



==> WS" 
==> GD" 
==> SB" 
==> OF" 



CHR* (45)?: NEXT : PRINT 



5 RINGE ? 
> 5 THEN 210 



SRI 



FOR Z = 1 TO 40: PRINT 

PRINT "SCHWARZ ==> SW 

PRINT "BRAUN 

PRINT "ROT 

PRINT "ORANGE 

PRINT "GELB 

PRINT "GRUEN 

PRINT "BLAU 

FOR Z - 1 TO 40: 
POKE 34,13 
HOME 

VT AB 14: INPUT ■ 4 ODER 

IF RI < 4 OR RI 

VTAB 15:W - 
Z = 

FOR I « 1 TO 5 
IF RI=4 AND 1=3 THEN NEXT I 
Z = Z + 1 
A(I) = J 

HTAB 2: PRINT ZJ : INPUT ".RING 

GOSUB 460 

IF AU) « J THEN 210: REM * SPRINGT ZUR 1. EINGABE * 

NEXT 

REM * BERECHNUNG VON R # 

IF RI = 4 THEN W ~ <A<i) * 10 + A<2>) 

IF RI = 5 THEN W * (A(l) * 100 + A(2) 

PRINT : PRINT "WIDERSTANDSWERT: "J 

IF W < 1000 THEN X* = " OHM": PRINT WJX* 

IF W > ' - 1000 AND W < 10 A 6 THEN X* = " KOHM":W » W / 1000: PRINT WJXS 

IF W > 10 A 6 THEN X* » ■ MOHM" :W = W / 10 A 6: PRINT WjX* 

PRINT "TOLERANZ" SPC < 7) n : +/-"A(5) H %" 

PRINT "ABSOLUTWERTE" SPC < 3> " : " 5 W - W * A (5) / 100"<->"iW + W * A(5) / 100; 



" ;R* 



* 

* 



10 

10 



A A<4) 

+ A(3) ) * 10 



A(4) 



PRINT "NEUE DECODIERUNG?": VTAB 23: 

IF A$ = "J" OR A$ = "Y" THEN 210 

POKE 34,0: END 

REM * AUSWERTUNG * 

IF I « 5 THEN F* = R*:R$ = "O" 



HTAB 19: GET A* 



IF 

IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
F* 



R$ = 
R* = 

RS = 
R$ - 
R* = 
R* =* 
R* - 
R* - 
R$ - 
R* = 
RS « 
RS - 
FS = 
F* = 
F* = 
F* * 
FS = 
FS = 
- «o« 



"SW" 

"BR" 
"RT" 
"OG" 
"GE" 
"GN" 
"BL" 
"LI" 
"GR" 
" WS " 
n GD" 
" SB " 

"BR" 

.. RT ,. 

"GN" 
" GD " 
"SB" 

" OF " 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
AND 



A<I) 

A(I) 
AU) 
AU) 
A(I) 
AU) 
A(I) 
ACI) 
A(I) 
AU) 
1=4 



AND 1=4 
THEN AU) 



THEN 
THEN 
THEN 
THEN 
THEN 



AU) 
AU) 
AU) 
AU) 
AU) 



= 

- 1 
= 2 
= 3 
= 4 
s 5 
= 6 
= 7 
= 8 
= 9 
THEN 
THEN 
= 1 
= 2 
= .5 

- 5 
= 10 
= 20 



AU) = 
AU) ~ 



- 1 

- 2 



RETURN 
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Ein vieldiskutiertes Thema der letzten Jahre war die Spracherkennung durch 
Computer. Doch bevor ein Computer die Spracherkennung beherrscht, muß 
er zunächst die Sprache digitalisieren. Digitalisieren bedeutet, daß die 
menschliche Sprache in für Computer verwendbare „Codes" umgewandelt 
wird. Dieser Artikel beschäftigt sich mit der Digitalisierung von Sprache, 
Musik oder allgemein Geräuschen auf dem Apple IL 

Sprachdigitalisierung auf dem Apple II 



Mittlerweile gibt es auf dem wachsen- 
den Zubehörmarkt für diesen Compu- 
ter einige Programme, die zum Teil 
zusammen mit zusätzlicher Hardware 
die Sprachausgabe ermöglichen (z. B. 
S.A.M. von Don't Ask Software). Die- 
se Programme haben jedoch für den 
Computerfan den Nachteil, daß die 
Preise für diese Käufergruppe wohl 
kaum akzeptabel sind. 
Es gibt jedoch noch eine andere Mög- 
lichkeit der Sprachausgabe, die bei 
Verwendung des Apple II dank des 
Cassetteneingangs besonders einfach 
und beliebt ist. Statt eines Basic-Pro- 
gramms wird einfach die Sprache 
[bzw. die Geräusche) mittels eines 
Programms vom Cassetteneingang 
eingelesen. An den Eingang, der sich 
hinten rechts im Apple-Gehäuse be- 
findet, wird bei der Programmspeiche - 
rung ein normaler Cassettenrecorder 
angeschlossen. Die Speicherstelle 
$C060 im I/O-Bereich des Apples ent- 
hält stets einen Wert, der darüber in- 
formiert, ob „gerade ein Ton am Ein- 
gang ankommt". Sobald ein Ton an- 
kommt, wechselt der Zustand eines 
Flipflops und damit ändert sich auch 
der Wert eines Bit der Speicherstelle 
$C060. Glücklicherweise (obwohl es 
natürlich so geplant war) handelt es 
sich um das MSB {Most Significant 
Bit), also das 7. Bit. Ist es gesetzt, so ist 
der Wert des Bytes größer als 127 
($7F), ansonsten ist der Wert entspre- 
chend zwischen und 127 ($7F). Der 
Zustand des Bits ändert sich also im 
„Rhythmus" der Sprache oder der Ge- 
räusche, die über den Cassettenein- 
gang gelesen werden. Wird nun in ei- 
ner möglichst kurzen Zeit diese Spei- 
cherstelle sehr oft abgefragt, so kann 
die ankommende Sprache digitalisiert 
werden. Anschließend kann sie direkt 
über den Apple- Lautsprecher ausge- 
geben oder auch im Speicher abgelegt 
werden, wobei die erste Möglichkeit 
auf Grund der höheren Geschwindig- 
keit und der darauf folgenden größe- 



ren Abfrage -Frequenz bessere Ergeb- 
nisse liefert. 

Es ist natürlich klar, daß die Abfrage- 
Routine in Maschinensprache ge- 
schrieben sein muß, da nur dann eine 
einigermaßen akzeptable Frequenz er- 
reichbar ist. 



Direkte Spiachausgabe: 

Bei der direkten Sprachausgabe wer- 
den ankommende „Daten" (Sprache/ 
Geräusche) nicht gespeichert. Viel- 
mehr wird entsprechend der ankom- 
menden Geräusche der Lautsprecher 
des Apple II angesprochen, so daß die 
Worte (fast) in dem Augenblick im 
Apple-Lautsprecher zu hören sind, 
wenn sie der Cassettenrecorder an 
den Computer übermittelt. 
Dabei muß bei jedem Abtastzyklus 
überprüft werden, ob sich der Wert 
des MSB des Bytes der Speicherstelle 
$C060 gegenüber der letzten Abfrage 
geändert hat. Ist eine Veränderung 
aufgetreten, so muß der Lautsprecher 
angesprochen werden (z. B. durch Le- 
sen der Speicherstelle $C030 : LDA 
$C030). Andernfalls ist „gerade kein 
Ton angekommen" und es darf natür- 
lich kein Klick ausgegeben werden. 
Will man die Sprache nicht sofort aus- 
geben, sondern zunächst Zwischen- 
speichern, so muß man nur jeweils den 
Zustand des 7. Bits abspeichern. Somit 
passen 8 „Zustände" in ein Byte. Be- 
nutzt man beim Apple II den Speicher- 
bereich von $800 (2048) bis $9600 ' 
(38 400) zur Textspeicherung, so 
könnte man 35,5 kByte Worte spei- 
chern. Das entspricht 284 kBit. Bei 
einer Abfrage-Frequenz von 10 000 
Bit/s (Baud) kann man dann etwa 30 
Sekunden (28,4 s) Text speichern. Bei 
25 000 Baud sind es noch etwa 1 1 Se- 
kunden, die dann jedoch weitaus bes- 
sere Qualität haben. 
Es versteht sich natürlich von selbst, 



daß die Routine, welche die Daten im 
Speicher ablegt, für ein Bit die gleiche 
Zeit verbrauchen muß, die später die 
Ausgaberoutine zur Ausgabe benö- 
tigt. Da die Ausgabe normalerweise 
schneller ist, muß sie durch einige zu- 
sätzliche (eigentlich überflüssige) Be- 
fehle künstlich verlangsamt werden, 
um die maximale Geschwindigkeit der 
Speicherroutine zu erreichen. 
Bitte beachten Sie auch das Programm 
SOFT-T ALKER im den Apple II in dieser 
Ausgabe. Es bietet ein komplettes Sprach- 
Ein- und -Ausgabesystem nach dem hier 
erläuterten Verfahren. 



Apple //c wird 
professioneller 

BTX-Arbeitsplatz durch Telesoft 

Rechtzeitig ist das komplette BTX- 
Softwarepaket „Telesoft" für den Ap- 
ple //c auf den Markt gekommen. „Te- 
lesoft", das den Apple //c zu einem 
professionellen BTX-Arbeitsplatz 

macht, wird von der Apple Computer 
GmbH in Verbindung mit der Baud 
BTX-Agentur, München, angeboten. 
Das BTX-Sof twarepaket setzt sich aus 
einem Grund- und fünf Anwendungs- 
modulen zusammen. Telesoft ist FTZ- 
zugelassen, damit darf das Gesamtsy- 
stem ohne zusätzliche BTX-Tastatur 
betrieben werden. 

Das „ Grundmodul " für unverbindlich 
741 DM erlaubt die Bedienung von 
BTX^über die Tastatur des Personal- 
Computers. Es speichert, verwaltet 
und zeigt BTX- Bilder auf einer Disket- 
te. Zu jedem BTX-Bild gibt es eine 
Bildbeschreibung, die das Bilddatum, 
das Datum der Anlage und das der 
letzten Änderung sowie eine Bild- 
zeichnung enthält. 
Das Modul „BTX-Mailing" enthält den 
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Aaibau und die Pflege einer Adreßda- 
$22. und einer Briefdatei. Alle Dateien 
and Apple- Dateien. 
D&e Adreßdatei ist nach BTX-System- 
Nummern sortiert. Sie enthält die 
komplette Anschrift und einen 13stel- 
ügen Selektionsschlüssel. Briefe wer- 
ben mit Standard-Textverarbeitungs- 
F^nktionen erstellt und editiert. Für 
cen Briefversand können Adressen 
^ber den 13 stelligen Selektion s Schlüs- 
sel ausgewählt werden. Das Programm 
■rermerkt, an welche Adresse welcher 
Brief zuletzt ausgesandt wurde. Da- 
durch können an neuaufgenommene 
Adressen Serienbriefe in der richtigen 
Reihenfolge geschickt werden. An- 
stelle von Briefen können auch Mittei- 
lungsseiten versandt werden, die im 
p-ist-Rechner gespeichert sind. 
Das automatische Herstellen der Ver- 
bindung zum Post-Rechner und das 
Leeren des BTX-Briefkastens sind 
Funktionen des Moduls „Mailbox". 
Die BTX-Mitteilungen und -Antwort- 
Seiten werden auf Diskette gespei- 
chert. Über vorgegebene Parameter 
verden diese BTX-Seiten analysiert 
^nd in einer Datei zur Weiterverarbei- 
tung ausgegeben. Sie stehen damit in 
der dem Benutzer vertrauten Form zur 
Verwendung durch Standardpro- 
gramme zur Verfügung. Textinforma- 
tionen können sofort ausgedruckt 
werden. 

.Multifunktion mit Bildpräsentation" 
heißt das Modul, auf dem alle Tasta- 
lurfunktionen auf Diskette gespei- 
chert werden. Der Benutzer kann da- 
mit Standardabläufe vordefinieren 
und später abrufen, ohne langwierige 



Eingaben machen zu müssen. 
Auf die Diskette gespeicherte BTX- 
Bilder können in einer frei festlegba- 
ren Folge mit unterschiedlichen Zeilen 
pro Bild angezeigt werden. Außerdem 
eignet sich dieses Modul zur program- 
mierten Unterweisung. BTX- Bilder 
mit Informationen werden gezeigt. 
Über Dialogfelder, die östellige alpha- 
numerische Informationen abfragen, 
erfolgt die Verzweigung zu der Be- 
handlung richtiger oder falscher Ant- 
worten. Unverbindliche Preisempfeh- 
lung für das Modul ist 798 DM. 
Modul „Editieren". Dieses Modul in- 
terpretiert Decoder-Funktionen auf 
der Tastatur des Persobal-Computers. 
Die Verwaltung der Bilder übernimmt 
das Grundmodul. 

Modul „Komfort-Editieren". Das Ver- 
schieben von BTX-Grafiken und -Tex- 
ten sowie das Kopieren, Aus speichern 
und Neuzeigen übernimmt das Modul. 
Vor dem Kopieren wird jedes Bild au- 
tomatisch analysiert, damit bei der 
Verschiebung oder Übertragung alle 
Färb- und Größenattribute richtig 
übertragen werden. 
Sämtliche Zusatz-Module unverbind- 
liche Preisempfehlung: 798 DM. 
Für den BTX-Betrieb ist ein Interface 
mit Spezialkabel zum Apple, //c erfor- 
derlich. Unverbindliche Preisempfeh- 
lung: 376,20 DM. 



Kontakt: 
Renate Knüpfer 
Apple Computei GmbH 
Ingolstädter Str. 20 

8000 München 45 



Programmbeschreibung: SOFT-TALKER 

für APPLE II 



Das Apple-Programm SOFT-T ALKER 
ist ein komplettes System zur einfa- 
chen Digitalisierung von Sprache, 
Musik oder Geräuschen. Es bietet eine 
große Zahl von Möglichkeiten, ohne 
dabei auf einer teuren Hardware -Er- 
weiterung aufzubauen. 
Zum Betrieb von SOFT-TALKER be- 
nötigen Sie zusätzlich zum Apple II 
(oder Kompatiblen) mit Diskettenlauf- 
werk nur einen normalen Cassettenre- 
corder mit Anschluß zum Apple -Cas- 
$etteneingang. Dieser Recorder samt 
Kabel ist bei vielen noch aus der Zeit 
vor dem ersten Diskettenlaufwerk 
vorhanden. 

Wenn Sie das Programm eingeben, so 
ächten Sie bitte auf korrekte Eingabe 
der DATA-Zeilen. Diese enthalten ei- 
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nige Maschinenroutinen, die zur ei- 
gentlichen Digitalisierung dienen. Vor 
dem ersten Programmstart sollten Sie 
das Programm zunächst mit SA VE 
SOFT-TALKER auf Diskette abspei- 
chern. 

Beim Programmstart wird zunächst, 
das Maschinenprogramm in den Spei- 
cher gePOKEd. Dabei wird es auf Ein- 
gabefehler überprüft, diese werden 
natürlich ausgegeben. Nachdem alle 
DATAs korrekt in den Speicherbe- 
reich von 768 an ($ 300) gebracht wur- 
den, erscheint das Menü, das aus sie- 
ben Punkten besteht. Oberhalb des 
Menüs sind der Beginn des Sprach- 
Speichers, die momentane Endposi- 
tion und das maximale Ende (bezeich- 
net als HIMEM) angegeben. Diese 



Werte können mit Menü-Funktion 
<6> geändert werden Mit Funktion 
< 1 > kann man direkt Sprache digita- 
lisieren. Geräusche, die vom Casset- 
tenrecorder auf den Apple II übertra- 
gen werden, werden nicht gespeichert, 
sondern sofort wieder über den Laut- 
sprecher ausgegeben. Nach einem Ta- 
stendruck kehrt man zum Menü zu- 
rück. 

Auch Menü-Punkt <2> digitalisiert 
die eingelesene Sprache, doch diesmal 
wird sie im RAM -Bereich des Apple II 
abgelegt. Dabei wird ab der Speicher- 
Position im Speicher begonnen, die im 
Menü im oberen Bereich mit Start ge- 
kennzeichnet ist. Wenn die Digitali- 
sierung nicht mit einem Tastendruck 
unterbrochen wird, endet sie späte- 
stens dann, wenn der gesamte defi- 
nierte Speicherbereich belegt ist. 
Mit Funktion <3> kann die gespei- 
cherte Sprache auf dem Lautsprecher 
ausgegeben werden. Mit einer beliebi- 
gen Taste kann auch hier wieder un- 
terbrochen werden und man kehrt 
zum Menü zurück. 
Funktion <4> speichert den definier- 
ten Speicherbereich auf Diskette in 
Form eines Binärfiles ab. 
Entsprechend wird mit <5> vom 
Menü aus ein Sprach-File in den Spei- 
cher geladen. Es wird ab der definier- 
ten Start-Position abgelegt. Bei zu gro- 
ßer Länge überschreitet das File natür- 
lich manchmal die definierte maximale 
Obergrenze (HIMEM). Das Programm 
gibt dann eine Warnung aus, aller- 
dings wurde der entsprechende Spei- 
cherbereich oberhalb von HIMEM 
dann schon überschrieben. Mit den 
Funktionen >4< und >5< kann also 
eine Satz-, Wort- oder Geräusch- 
sammlung auf Disketten angelegt wer- 
den. 

Mit Funktion <6> können die Spei- 
cherbereichswerte (Start, Ende, Hi- 
mem) geändert werden. Es sei hier 
zum besseren Verständnis darauf hin- 
gewiesen, daß der Begriff HIMEM in 
diesem Programm nicht mit dem App- 
lesoft-Befehl HIMEM: in Verbindung 
steht. 

Tips zur Benutzung des 
Programms: 

Der Cassettenrecorder sollte mög- 
lichst auf VOLLE LAUTSTÄRKE ein- 
gestellt sein. 

Speicherstartposition sollte ein Vielfa- 
ches von 256 sein (Bytes pro Page) und 
nicht kleiner als der vom Programm 
vorgegebene Wert gewählt werden. 
Bitte beachten Sie auch den Artikel 
„Sprachdigitalisierung auf dem Apple II" 
in dieser Ausgabe. 
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APPLE II SOFT-TALKER 
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90 SQUNDINP = 802:0UTFUT = 863: PNTR = 253:ENADR = 251:FIN = 38400: START = 

5632:E0FTXT = 5632 
100 FOR I - 768 TO 923: READ X 
102 POKE I,X=5U = SU + X 
104 NEXT I: IF SU < > 19127 THEN 'PRINT CHR$ (7) : "FEHLER IN DEN DATA'S 

!": END 

TEXT s HOME : IN VERSE 

PRINT "APPLE SOFT-TALKER 
s POKE 34,1 
***** MENUE ***** 



110 
120 
130 
140 
145 



150 

160 
170 
180 
190 
200 
203 
205 
210 
220 
230 
240 
500 
505 
510 
515 

520 
530 
540 
550 
560 
570 
990 
1000 



(C) 1985 0. STEINMEIER" 



NORMAL 
REM 
HOME : 
N 

VT AB 5: 
VTAB B: 
PRINT : 
PRINT s 
PRINT s 
PRINT : 
PRINT : 
PRINT : 
VTAB 23 
IF IP* 



VTAB 3: PRINT "START: "sSTART^" ENDE: "jjEOFTXT;" HIMEM: "jFI 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
PRINT 
HTAB 

: »*i 



TAB< 



6); "MENUE : " 

SOFORTD I B I TAL I S I ERUNG " 
"<Z> SPRACHAUFZEICHNUNG" 
"<3> SPRACH« IEDERGABE" 
"<4> SPRACHE ABSPEICHERN" 
"<5> SPRACHE EINLESEN" 
"<6> SPEICHERPARAMETER AENDERN" 
" < 7 > PROGRAMM-ENDE " 
6: PRINT "BITTE WAEHLEN : " s s GET 
CR IP* > "7" THEN 210 



IP$ 



OM VAL (IP*) GOSUB 1000,2000,3000,4000,5000,7000,6000 

GOTO 145 

REM ***** EINGABE FILEPARAMETER ***** 

VTAB lO 

'FILENAME : ";F* 

■■ "7" THEN PRINT : PRINT CHR$ (4) ; "CATALDG" : FRINT 



INPUT 
IF F$ 
510 
IF F$ 
PRINT 
IF SX 
PRINT 
IF DX 



PRINT 



50T0 



- "" OR VAL (F*) > O THEN 510 

: INPUT "SLOT s ";SX 

> 7 OR SX < 1 THEN 530 

: INPUT "DRIVE : " ; DX 

< > 1 AND DX < > 2 THEN 550 
RETURN 

REM ***** SOFORTDIGITALISIERUNG ***** 
HOME : INVERSE : PRINT " SOFORTD IGITALISIERIUNG 



NORMAL 



1010 VTAB 10s PRINT "DRUECKEN SIE EINE TASTE, UM ZUM MENUE ZURUECKKEHRE 

N ZU KOENNEN" 
1020 CALL 768 
1030 RETURN 

1990 REM ***** SPRACH AUF ZEICHNUNG ***** 

2000 HOME : INVERSE : PRINT " SPRACHAUFZEICHNUNG 

2010 NORMAL s VTAB 10 

2020 PRINT "ZUM STARTEN EINE TASTE DRUECKEN" 
2030 FRINT : PRINT "ZUM BEENDEN EINE TASTE DRUECKEN" 
2040 POKE PNTR + 1, INT (START / 256): POKE PNTR,START - PEEK (PNTR + 1) 

* 256 
2050 POKE ENADR,FIN / 256 

2060 POKE - 16368,0: WA IT - 16384,123: CALL SOUND INP 
2070 EOFTXT = PEEK (PNTR + 1) * 256 + PEEK (PNTR) 
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I 2080 RETURN 

| 2990 REM ***** SPRACHWIEDERGABE ***** 

i 

I 3O00 HDME £ INVERSE : PRINT " SPRACHWIEDERGABE '* : NORMAL 

1 3002 IF INT (START / 256) = > INT <EOFTXT / 256) THEN VTAB 10: PRINT 

"KEIN TEXT IM SPEICHER ! " ; = SET IP*s RETURN 
S 3005 VTAB 10: PRINT "ZUM STARTEN TASTE DRUECKEN ■": PRINT : PRINT "ZUM BE 
1 ENDEN EINE TASTE DRUECKEN ? " 
| 3010 POKE PNTR + 1, START / 256 

l 3020 POKE PNTR, START - PEEK (PNTR + 1 ) * 256 
f 3030 POKE ENADR,EOFTXT / 256 
1 3035 POKE - 16368,0: WAIT - 16384,128 
;{ 3040 CALL OUTPUT 
I 3050 RETURN 
| 3990 REM ***** SPRACHE ABSPEICHERN ***** 

4 

j 4000 HOME s INVERSE : PRINT " SPRACHE ABSPEICHERN ": NORMAL 

1 

i| 4005 IF INT (START / 256) = > INT (EOFTXT / 256) THEN VTAB 10s PRINT 

"KEIN TEXT IM SPEICHER ? " ; : GET IP*s RETURN 
:| 4010 GOSUB 500 
;| 4020 PRINT : PRINT CHR* (4) 5 "B3AVE";F$; " ,A" ; START; " ,L"; EOFTXT - START;", 

D";D7.; " ,S"$S7. 
j 4030 RETURN 
i 4990 REM ***** SPRACHE EINLESEN ***** 

5000 HOME : IN VERSE : PRINT " SPRACHE EINLESEN " 2 NORMAL 

5010 GOSUB 50O 

5020 PRINT : PRINT CHR* (4) ; "BLOAD";F$; " , A";START; " ,D" ;D%; " ,5" 5 SX 

5030 L AENGE = PEEK (43616) + PEEK (43617) * 256 

5040 EOFTXT - LAENGE + START 

5050 IF FIN < EOFTXT THEN PRINT ; PRINT CHR* (7) : "FEHLER: ENDE > HIMEM 

!";: GET IP* 
5060 RETURN 

5990 REM ***** PROGRAMM-ENDE ***** 

6000 HOME : VTAB 12: PRINT TAB ( 18) ; "ENDE ? ";: GET IP$ 
6010 IF IP* < > "J" THEN RETURN 
6020 TEXT : HOME : END 
6990 REM ***** SPEICHERPARAMETER AENDERN ***** 

7000 HOME : IN VERSE -. PRINT " SPEICHERPARAMETER AENDERN ": NORMAL 

7010 VTAB 10: INPUT "START s "; START 
7020 PRINT : INPUT "ENDE : " ; EOFTXT 
7030 PRINT s INPUT "HIMEM : "sFIN 
7040 RETURN 

60003 DATA 173,96, 192,72, 104, 133,255, 173 ,96, 192,72,69,255, 16, 10, 173,48, 19 
2, 44, 00, 192, 16, 237, 48, 70,165,00, 44, 00, 192, 16, 223, 48,61,44,16,192,173, 
96,192,72,162,08,169,00,133,252,104,133,255 

60004 DATA 173,96,192,72,69,255,16,07,165,252,56,42,76,70,03,165,252,24,4 
2,234,133,252,202,208,228,145,253,200,208,217,44,00,192,48,10,230,254 
,165,251 , 197,254,208,204, 104, 96* 104,44, 16, 192,96 

60005 DATA 44, 16, 192, 162,08,234,36,00, 177,253, 106, 144 ,06,44,48, 192,7^6, 123 
,03,36,00,36,00,36,00,36,00,36,00,36,00,36,00,234,234,234,202,208,227 
,200,208,217,44,00,192,48,205,230,254,165 

60006 DATA 254,197,251,208,204,96 
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Die attraktive Schneider-Version 
eines SpielhaHcnhits 

CPC-Bert 



Auch in dieser Version geht es dar- 
um, CPC-Bert über eine Pyramide 
aus Würfeln hüpfen zu lassen und 
dabei die Felder umzufärben. 

Dieses Spiel kann in neun Schwierig- 
keitsgraden gespielt werden. Level 1 
ist für Greenhorns, die am Anfang ei- 
ner Spielerkarriere stehen. Level 9 ist 
der Schwierigkeitsgrad für alle Joy- 
stick-Jongleure und Tastatur- Akro- 
baten, die aber trotzdem höllisch auf- 



passen müssen, denn CPC-Bert ist 
sehr sensibel programmiert! 

Je nach Schwierigkeitsgrad müssen 
also alle Felder des Spielfeldes ein- bis 
dreimal umgefärbt werden, um das 
Rundenziel (den nächsthöheren Level) 
zu erreichen. Dabei machen CPC-Bert 
ein bzw. zwei Gegner das Leben 
schwer. Ein Zusammentreffen mit die- 
sen ist unbedingt zu vermeiden! An- 
sonsten büßt CPC-Bert sein einziges 



Leben ein. Dies gilt übrigens auch für 
den Fall, daß er über den Rand seiner 
Würfelpyramide hinaustritt. Der 
zweite Gegner führt außerdem etwas 
Listiges im Schilde: er färbt bereits 
umgefärbte Felder in ihre ursprüngli- 
che Farbe zurück, um CPC-Bert zu 
ärgern. Dies geschieht auch dann, 
wenn CPC-Bert auf ein Feld springt, 
das bereits die Zielfarbe erreicht hat. 
Strategie, Spiellogik und Geschick- 
lichkeit sind also angesagt! 



10 DIM r(47) ,e(47) ,hi (12) ,hi*<12> 

20 GOSUB 2620 

30 REM Zeichende-f inition 

40 SYMBOL AFTER 211 

50 SYMBOL 212,255,255,253,249,241,225,193,129 

6ö SYMBOL 220,0,127,127,112,104,103,103,102 

70 SYMBOL 221,0,255,255,0,0,255,255,0 

80 SYMBOL 222 , O , 252 , 252 , 28 , 44 , 204 , 204 , 204 

90 SYMBOL 223,102,102,102,102,102,102,102,102 

1 00 SYMBOL 224 , 204 , 204 , 204 , 204 , 204 , 204 , 204 , 204 

110 SYMBOL 225,103,103,104,112,127,127,0,0 

120 SYMBOL 226,255,255,0,0,255,255,0,0 

130 SYMBOL 227,204,204,44,28,252,252,0,0 

140 SYMBOL 245,224,144,144,252,254,240,236,12 

150 SYMBOL 244,255,247,227,247,255,231,91,24 

160 SYMBOL 246,255,215,171,85,171,41,215,17 

170 SYMBOL 247,255,199,187,125,69,1,215,17 

ISO SYMBOL 248,255,199,131,1,1,1,215,17 

190 SYMBOL 249,195,189,90,126,36,24,129,195 

200 SYMBOL 230,3,3,3,3,3,3,127,127 

210 SYMBOL 231,127,127,3,3,3,3,3,3 

220 SYMBOL 232,3,3,3,3,3,3,31,63 

230 SYMBOL 233,128,128,128,128,128,128,252,252 

240 SYMBOL 234,252,252,128,128,128,128,128,128 

250 SYMBOL 235,128,128,128,128,128,123,240,248 

260 t U ) =103s t <23 =98: t (3) =107: t (4) =108s -f *="2" s s=l 

270 MODE I: BORDER IsINK 0,1 

280 REM Anleitung 

290 CLS 

295 PR I NT CHR* < 22 ) +CHR$ < 1 ) s PR I NT CHR* ( 23 > +CHR* < 1) : SPEED I NK 

345 GOSUB 2770 

350 a=INT<RND(l)*27) 

360 b=INT(RND<i>*27) 
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I 370 INK l,asINK 2,b 

I 380 FDR i=l TD 120:NEXT 

1 390 a*=INKEY* 

f 400 IF a$~"j" THEN 440 

! 410 IF a*= M n" AND f*="i" THEN f i=26:f2=3s f 3=11 :f4-21:f5=2:f 6=16 :BOTO 1020 

420 IF a*="n" AND f*="2" THEN f 1=26: f 2=24 sf 3=8: f4=9:f 5=2: f 6=6: BOTQ 1020 

430 GOTO 350 

440 BOSUB 3010 

450 INK 0,4: BORDER 4:CLS 

460 INK 1,0: LOCATE 1,2: PEN lsPRINT "******* CPC - BERT ****** *" 

470 INK 2,22:LQCATE 1,5 s PEN 2:PRINT " Faerben Sie die Felder der Pyramide" 

480 LOCATE 7,7sPRINT "je nach Schwierigkeitsgrad" 

490 LOCATE 10,9:PRINT "ein bis drei n\al um." 

500 LOCATE 5,llsPRINT "Achten Sie dabei vor allem auf" 

510 LOCATE 13,13:PRINT "den oder die" 

520 LOCATE 8,15sPRINT "umherspringenden Feinde-" 

530 LOCATE 11, 21: PEN lsPRINT "Leertaste druecken" 

540 a*=INKEY* 

550 IF a*=" "THEN 570 

560 GOTO 540 

570 CLSsINK 0,9: INK 1,0s INK 2, 25: INK 3,11 

580 LOCATE 8,4: PEN 1:PRINT"S PIELSTUFEN:" 

590 LOCATE 1,6: PEN 3:FRINT"LV Gegner Taetigkeit" 

600 LOCATE i,SsPEN 2s PRINT" 1 Beruehrung toetet eine Umf aerbung" 

610 LOCATE 1,9: PRINT" 2 Beruehrung toetet zwei Umf aerbungen" 

620 LQCATE 1,10:PRINT" 3 Beruehrung toetet drei Umf aerbungen" 

630 LOCATE 1,12:PRINT" 4 Beruehrung toetet eine Um-f aerbung" 

640 LQCATE 1,13:PRINT" 5 Beruehrung toetet zwei Um-f aerbungen" 

650 LOCATE 1,14:PRINT" 6 Beruehrung toetet drei Umf aerbungen" 

660 LOCATE 1,15: PRINT" Fei drueckf aerbung" 

670 PEN 3sL0CATE 2,15:PRINT CHR* (159) :PEN 2 

630 LOCATE 1,17:PRINT" 7 Zwei Gegher <l/4) eine Umf aerbung" 

690 LQCATE 1,18: PRINT" 8 Zwei Gegner (2/5) zwei Umf aerbungen" 

700 LOCATE 1,19: PRINT" 9 Zwei Gegner (3/6) drei Umf aerbungen" 

710 LQCATE 12,22: PEN 3: PR INT "Leertaste druecken" 

720 PLOT 36,75, IsDRAW 36,330 

730 PLOT 325,75s DRAM 325,330 

740 PLOT l,297sDRAW 640,297 

750 PLOT 1,330s DR AM 640,330 

760 PLOT i,370sDRAW 640,370 

770 PLOT l,375sDRAW 640,375 

7ao PLOT 1,232:DRAW 640,232 

790 PLOT i,150sDRAW 640,150 

300 PLOT 1,75s DRAU 640,75 

810 PLOT 1,32:DRAW 640,32 

S20 PLOT l f 27s DRAU 640,27 

330 a$=INKEY*s IF a*=" "THEN 850 

840 GOTO 830 

S50 CLSsINK 0,2: BORDER 2 

B60 LOCATE 6,3s INK 3,9:PEN 3s PRINT "Benutzen Sie folgende Tasten, um" 

870 LOCATE 6,5s PRINT" Ihren CPC-Bert zu steuern:" 

SSO LOCATE 5, 8s PEN isPRINT"oben links" 

390 LQCATE 6,9s PEN 2s PRINT CHR*(220) ;CHR* (221 ) ;CHR* (222) 5 STRING* (8,CHR*<32) ) 5CHR 

*(220) ;CHR*( 221); CHR* (222) ;" " ;CHR$(220) sCHR* (221) ;C 

HR* (222) 

900 LOCATE 6, 10s PRINT CHR$(223) sCHR* (t (1) ) ;CHR$(224) ;STRINB*(8,CHR$ (32) ) ;CHR*(22 

3);CHR*(t(3)) 5CHR* (224) ; " " ; CHR* (223) ;CHR*(t (4) );CHR 

$ (224) 

910 LQCATE 6,11:PR1NT CHR* (225) 5 CHR* (226) ;CHR*(227) sSTRING* (8,CHR* (32) ) ;CHR*(225 
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) : CHR* (226) ; CHR* (227) ; " " ; CHR* (225) 5 CHR* (226) ; CHR$ (2 
27) 

920 LOCATE 7,i3:PRINT CHR*(220) ;CHR*( 221) :CHR*( 222) s LOCATE 21, 12s PEN l:PRINT"rec 
hts" 

930 LOCATE 7, 14s PEN 2sPRINT CHR*<223) ;CHR*(t (2) ) :CHR*<224) 
940 LOCATE 7 , 1 5 : FRI NT CHR* ( 225 ) ; CHR* ( 226 ) ; CHR* ( 227 ) 
950 LOCATE 6, 16s PEN IsPRINT "unten" 

960 PEN 3sL0CATE 6,19:PRINT "Wollen Sie die Tastaturbelegung" 
970 LOCATE 9, 21 SPRINT" veraendern ( j/n) " 
980 a*=INKEY* 
990 IF a*="n" THEN 1020 
1000 IF a*=»'j" THEN 2520 
1010 GOTO 9SO 

1020 pu=Üsw=OsINK 1,0s INK 0,9:B0RDER 9sMQD£ ls LOCATE 7,5sPEN isPR.INT"Mit welchem 
Level wollen": LOCATE 7,10: INPUT"Sie beginnen ";lv 
1030 GOSUB 2430 

1040 INK 4,-flsINK 6, -f 2s INK 8, f 3s INK 10, -f 4s INK 2,*5 
105O REM Bildschirmau-fbau 
1060 INK 0,0s INK 1,5: BORDER O 
1070 CLS 
1080 MODE O 

1090 SPEED INK 10,10: INK 14,22,3 

1100 LOCATE 1,1: INK 12,4s PEN 12: PRINT"Level. Score" 

1110 MÜVE 0,14:DRAW 640,14,1 
1120 KOVE 0,365:DRAW 640,365 
1130 FOR t=l TO 70 
1140 a=INT<RND(i)*640+l> 
1150 b~INT(RNDCl)*400-J-l) 
1160 c=INT<RND(l)*14) 
1170 PLOT a,b,c 
1180 NEXT 
1190 INK 3,f6 
1200 a-8sb=4:8Q5UB 1330 
1210 a=10:b=5s GOSUB 1330 
1220 a=12:b~6: GOSUB 1330 
1230 a=14sb=7s GOSUB 1330 
1240 a=16:b=S: GOSUB 1330 
1250 a=18sb=9s GOSUB 1330 
1260 a=20:b=10 
1270 FOR t=l TO 7 
1 280 LOCATE a~t , b 
1290 PEN 4sPRINT CHR*€204) 
1300 b=b+2 
1310 NEXT 
1320 GOTO 1440 
1330 FOR t=l TO 7 
1340 w=w-*-l 
1350 LOCATE a-t,b 
1360 r(w>=4 

1370 PEN rCw) SPRINT CHR$ (2145 ;CHR*C 143) sCHR* (212) 
1380 b=b+l 
1390 LOCATE a-t,b 

1400 PEN SsPRINT CHR* ( 143) ; CHR* ( 143) 
1410 b=b+-l 
1420 NEXT 
1430 RETURN 

1440 REM Haupt p rag ramm 

1450 a=8s b=4: xa=l 1 : ya=18: ua=34: xb=l 1 : yb=18: ub~34 

1460 e=l:w=i: LOCATE a-l,b: GOSUB 1610s PEN r(w)sPRINT CHR$(214) ;CHR*(248) sCHR* 
(2125 
1470 a*=INKEY# 
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14S0 IF a*<>"" THEN LOG ATE a,ö:FRINT CHR* (143) 

1490 IF a*=CHR*(t(l> ) THEN a=a+l:b=b-2s w=w-l : GOSUB 161Ö: GOSUB 1650 

1500 IF a*=CHR*(t(2) ) THEN a=a-l:b=b+2: w=w+ls GOSUB 1610:GG3UB 1690 

1510 IF a*=CHR*Ct(3)) THEN a=a-2sb=b-ls w=w-7: GOSUB 1610:GQSUB 1730 

1520 IF a*=CHR*Ct(4) ) THEN a=a+2:b=b+i:w=w+7: GOSUB 1610: GOSUB 1770 

1525 IF a$-CHR*(32) THEN 5=0sso=sq+1 s IF so=2 THEN 5G=0ss=i' 

1S30 IF lv<4 QR lv>-7 THEN GOSUB 2100 

1540 pq=pq+lsIF pq>q THEN LOCATE xb,yb:PEN r(ub):PRINT CHR* (143) :pq=l : GOSUB 2490 

1550 IF lv>3 AND pq>=p- AND pq<=q THEN GOSUB 2340 
i 1560 LOCATE a-l,bsPEN r(w) SPRINT CHR*(214) ;CHR* (248) :CHR* (212) 
' 1570 LOCATE 2,2: INK ll,llsPEN ilsFRINT lvsLOCATE 15,2s PRINT e-1+pusPEN r (w) 

1530 IF e=vb THEN w=Osr (w)=0: pu=pu+e-l : lv-lv+1: GOSUB 2430sGGT0 120O 

1590 GOTO 1470 

1600 'Spiel -feldgrenzen 

1610 e=e-+-l:IF r(w)=-fa THEN e?=e-2s r (w) =r (w) -2s RETURN 

1620 ON ERROR GOTO 1820 

1630 r(w)=r(w>+2 

1640 RETURN 

1650 FÜR d-2 TO 7 

1660 IF b=d AND a=d+d-t-5 THEN 1820 

1670 NEXT 

1680 RETURN 

1690 FOR d=l TO 7 

1700 IF b=d+17 AND a^d+d-1 THEN 1820 

1710 NEXT 

1720 RETURN 

1730 FOR d=0 TO 6 

1740 IF a=d AND b=15-d*2 THEN 1820 

1750. NEXT 

1760 RETURN 

1770 FOR d=l TO 7 
f 1780 IF a=d+13 AND b=24-d*2 THEN 1820 
| 1790 NEXT 
1 1800 RETURN 
1 1810 'Krankenwagen 
I 1820 FOR t=30 TO 70 
| 1830 SOUND 7, t, 10,7 
| 1840 NEXT 
| 1850 pu=pu+e 
ji 1860 FOR fc=l TO 31 

I 1870 SOUND 135, 0,60, 15-1/10,0,0,1 
f 1880 NEXT 

{ 1890 LOCATE 2, 24: PEN 14s PR INT CHR* (249) 
1; 1900 FOR t=l TO lSOO:NEXT 
j 1910 FOR i=lS TO 2 5TEP-1 

\. 1920 PEN 4s SOUND 7 ,400, 30s SOUND 7,110,30 
I 1930 LOCATE i,24:PRINT CHR* (244) ;CHR* (245) ;CHR* (32) 
j 1940 NEXT 
i 1950 e*=" Neues Spiel ( j/n) " 

1960 INK 5,13: INK 14,10 

1970 FOR i=l TO 500: NEXT 
. 1980 FOR i=l TO 17 

!990 IF i=2 THEN LOCATE 1,22: PEN 14:PRINT CHR* (230) ;CHR* (233) 

2000 LOCATE 1 , 23 : PEN 1 4 s PR I NT CHR* < 23 1 ) 5 CHR* ( 234 ) 

2010 LOCATE l,24sPEN 14:PRINT CHR* (232) 5 CHR* (235) 

2020 LOCATE i + 1 , 24 s PEN 4 s PR I NT CHR* < 32 ) ; CHR* ( 244 ) : CHR* < 245 i 

2030 SOUND 7, 400, 30: SOUND 7,ilO,30 

2040 LUC ATE 3,24s PEN SsPRINT LEFT*(e*,i) 

2050 LOCATE 20,24: PR INT CHR* (32) 

2060 a*=INK£Y*:IF a*= ,! n" THEN INK 1,0: INK 0,9:BQRDER 9: PEN IsMODE 2sENB 
j 2070 IF a*="j" THEN 270 
1 2080 IF i=17 THEN GOTO 206Ö 
;; 2090 NEXT ^ __ __ 
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2100 REM Subroutine erster Gegner 

2110 ba=INT(RND( 13*4+1) 

2 1 20 LGCATE x a,ya: PEN r ( ua ) s PR I NT CHR$ < 1 43 ) 

2125 IF s=l THEN SOUND 7,5G+ba*20, 1 ,3 

2130 x=xa:y=yasu=uasON ba G03UB 2170,2210,2250,2290s xa=x s ya=y:ua=u 

2140 LOC ATE xa,yasPEN r(ua)sFRINT CHR*<247> 

2150 IF ua=w THEN LOCATE a-l,bs PEH rCw)sFRINT CHR$ (214) ; CHR* (247) ; CHFt*(212) z GOT 

G 1820 

2160 RETURN 

2170 *=x + l:y=y— 2su=u-l:F0R d=2 TD 7 

2180 IF y=d AND x=d+d+5 THEN x=x-l:y=y+2:u=u+i 

2190 NEXT 

2200 RETURN 

22 1 V-. =x — 1 : y=y-s-2 : u.=u+ 1 : FÜR d= 1 TO 7 

2220 IF y=d+17 AND x=d+d-l THEN x=x+l:y=y-2su=u-l 

2230 NEXT 

2240 RETURN 

2250 x=x-2:y=y-l:u=u-7sF0R d=ö TO 6 

2260 IF ;<=d AND y=15-d*2 THEN K=K+2:y=y+l:u-u+7 

2270 NEXT 

2280 RETURN 

2290 x=x+2sy=y+i:u-u+7sF0R d=i TO 7 

2300 IF x=d+13 AND y=24-d*2 THEN x=x-2sy=y-l:u=u-7 

2310 NEXT 

2320 RETURN 

2330 REM zweiter Gegner 

2340 bb~INT(RNDCl)*4+i> 

2350 LOCATE x b , yb s PEN r (üb): PR I NT CHR£ i 1 43 > 

2355 IF s=l THEN SOUND 7, lOO+bb*20, 1 ,4 

2360 x ~>i b : y=yb s u=ub i GN bb GOSUB 2 1 70 , 22 1 , 2250 , 2290 1 x b=x s yb =y s üb -u : GOSUB 2400 

2370 LOCATE xb-1, yb : PEN r ( üb ) : PR I NT CHR$ (214); CHR$ ( 246 ) 5 OHR* (212) 

23S0 IF w=ub THEN LOCATE a-l,bsPEN r(w>:PRINT CHR* (214) ;CHR$ (246) 5 CHR$ (212) sSOTO 

1820 
2390 RETURN 

2400 IF r<ub)<>4 THEN r <ub> =r <ub> -2s e=e~i 
2410 RETURN 
2420 ' Level kontroll e 

2430 IF lv=l DR lv=4 OR lv=7 THEN fa=6:vb=43 
2440 IF lv=2 OR lv=5 OR lv=8 THEN -fa=Ssvb=85 
2450 IF lv=3 OR lv=6 OR lv=9 THEN fa=lÖ2vb=127 
2460 IF lv>9 AND e>0 THEN lv=9 
2470 IF lv<l OR lv>9 THEN 1020 
2480 RETURN 

2490 p=INT (RND ( 1 ) *15+45) : q=INT <RND < 1 ) *10+62> 
2500 RETURN 

2510 ' Tastatur umbelegung 

2520 PEN 3:L0CATE 6, 19s PR INT "Geben Sie nun die neue Tastatur-" 
2530 LOCATE 8,21 :PRINT"belegung in der Reihenfolge" 
2540 LOCATE 7 ,23s PEN 1 : PRINT"0BEN, UNTEN, LINKS und RECHTS" 
2550 s LOCATE 18, 25s PEN 3 SPRINT "ein" 
2560 FÜR i=l TO 4 
2570 b $ < i > = I NKE Y* 

2580 IF b*<i)<>"" THEN t (i 3 =ASC (b* <i ) ) sGOTO 2600 
2590 GOTO 2570 
2600 NEXT 
2610 GOTO 350 
2620 FOR h=i TO IO 
2630 hi (h)=h*70 
2640 NEXT 

2650 hi*U)="SCHLECHT" 
2660 hi$<2>-"DUERFTIG" 
2670 hi *< 3) =" SCHWACH" 
2680 hi*<4)="MAESSIG" 
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2690 hi^CS^'HnTEL-MASS" 

2700 hi*<&>="GUT" 

2710 hi*(7)="SEHR GUT" 

2720 hi*CB)= M KLASSE" 

2730 hi*C9)="SUPER" 

2740 hi*<rO)="SPITZE" 

2750 RETURN 

2760 'Titelbild u. High-Scare 

2770 MGDE IsINK 0,1: BORDER IsINK 3,15,17:PEN 3 

2775 LOCATE i 1,1s PEN 2s PRINT"* * CPC - Bert * *" 

2776 LQCATE 13,6s PRI NT" Anleitung ( J/N> " 

277B LOCATE 10, 19sPRINT"Sound auss 'LEERTASTE'" 

2779 LQCATE S,25:PEN 2sPRINT CHR*<164);" 1985 by Software White" 

2780 INK 1,10: INK 2,3 

2790 FÜR kr=l TO 360 STEP 4 

2800 DES 

2810 QRIGIN 320,200 

2020 DRAW 320*C0S(kr)+5,160*SlN(kr)+5,l 

2830 DRAW 290*C0S(kr ) , 160*SIN «kr ) ,2 

2840 NEXT 

2850 FÜR h=10 TD 1 STEP -1 

2860 IF hi(h)>pu THEN GOSUB 2960: SOTO 2940 

2870 PEN 3s LOCATE 17, 18-hs INFUT hx* 

2880 LOCATE 13, 18-hs PRI NT USING"#####";pu 

2890 FOR hh=l TQ h 

2900 hi <hh)=hi <hh+l> 

2910 NEXT 

2920 hi <h)=pushi*<h)=hx* 

2930 pu=0 

2940 NEXT 

2950 RETURN 

2960 LOCATE 13,18-h 

2970 PEN 3: PRI NT USING ,, #####";hi <h> 

2980 LOCATE 19,18-h 

2990 PRINT hi*(h) 

3000 RETURN 

3010 'Monitorauswahl 

3020 MODE 1 

3030 BORDER 1:INK 0,1s INK 1,24s INK 2,10s INK 3,13 

3040 LOCATE 8, 10: PEN 1 :PRINT"MonitorkennzahI eingeben:" 

305Ö LOCATE 10, 14s PEN 2s PRINT"-!- Gruenmonitor" 

3060 LOCATE 10, 16s PRINT"-2- Farbmonitor" 

3070 LQCATE 8,19sPEN 3sPRINT"Selbstverstaendlich koennen" 

3080 LOCATE 8,21 s PRINT "Sie au-f dem Farbmonitor auch die" 

3090 LQCATE 8,23s PRI NT " Gruenmonitor version spielen !" 

3100 -f-*=INKEY*5lF -f*="i" THEN * 1=26= -f2=3s-f 3=1 laf 4=21: f 5=2: f 6=16: GOTO 3130 

3110 IF **="2" THEN -f 1=26 s f 2=24 s-f 3=8 s-f 4=9 s-f 5=2 s-f 6=6 sGQTQ 3130 

3120 GOTO 3100 

3130 RETURN 



^ „ _ |||ä^jIä All« lisch wahrscheinlich keine größeren 

tri XIrT IIIIIVV WHII Probleme haben. Der Anfänger wird 

- • • , -,. ~ m • i *■■' j jedoch nicht immer sofort verstehen, 

Eiü BUCh IUr Schneider- Anwender was im einzelnen gemeint ist Trotz 

dieses kleinen Mankos halten wir die- 
In diesem Buch werden die wichtig- Schneider-Computer-Besitzer aufzu- ses Buch für hervorragend, können es 
sten Abläufe und Funktionen im Be- zeigen. Dabei wird natürlich auch eine im Prinzip jedem Schneider- Anwen- 
triebssystem des Schneider CPC-464 Vielzahl von Tips erwähnt. Bei der der empfehlen. Es ist ein Nachschlage- 
und seinem dazugehörigen BASIC er- Erklärung der ROM-Listings hat sich werk, auf das jeder ernsthafte Pro- 
klärt. Der Autor dieses Werks, Win- der Autor der englischen Sprache, der grammierer nicht verzichten sollte, 
fried Huslik, hat es sich zur Aufgabe eigentlichen Computersprache, be- 

gemacht, eine Vielzahl von Möglich- dient. Eingefleischte Programmierer EDV-Buchverlag Augsburg ISBN 

keiten der Programmierung für alle werden mit den Erläuterungen in Eng- 3-925159-002, Preis 59 ,- DM. 
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Report 



Fortsetzung von Seite 6 

Für alle, die sich für diesen Computer interessieren, hier die technischen Daten: 




Philips Heim-Computer MSX 8010 

Neuer Heim-Computer mit dem Be- 1 
triebssystem MSX. Neben der Konso- 
le mit insgesamt 72 Tasten für Zei- 



chen- und Befehlseingabe besteht die 

dargestellte Anlage aus 

Monitor BM 7552 

Floppy Disc-Massenspeicher 



Datenrecorder D 6600/60 P 
80-Spalten-Drucker VW 0020 
2 Joysticks und 
Stromversorgungseinheit. 



1. VG 8010 -Konsole 

CPU 

RAM 

RAM -Erweiterung 

ROM 

Tastatur 

Ton-Generator 

Zeichenmenge 



Farben 

Anschlüsse/Schnitt- 
stellen 



2. Interface VU 0040 



3, Drucker 

Typ VW 0010 



Z80-Mickroprozessor (3,57 MHz) 

48 kB (davon 16 kB Video-RAM) 

mehr als 128 kB 

32 KB einschl. MSX-Basic 

72 tasten für 254 Zeichen/Symbole 

3 Parallel-Kanäle / 8 Oktaven 

40 Spalten / 24 Zeilen 

256 x 192 Punkte = 49 Tausend pixels 

32 Sprites 

16 

TV-Gerät 

Monitor 

Daten-Cassetten-Recorder 

2 Handregler (Joysticks) 

Floppy Disc 

Drucker 

2 Steckleisten für ROM/RAM-Extension 

Parallel (Centronics) 

enthält Steckleiste für CPU und 

Steckerleiste für Drucker 



40 Spalten 

Friktionseinzug für Papierrolle 13 cm 



Zeichenmenge 253 Zeichen 

Matrix 8x8 Punkte 

Druckgeschwindigkeit 35 Zeichen/sec. 
Typ VW 0020 80 Spalten 

Einzelblatteinzug 
Traktorwalze für 
Endlospapier (DIN A4) 
Matrix 8x8 Punkte 

Druckgeschwindigkeit 37 Zeichen/sec. 



4. RAM-Extension 



5. Datenrecorder 



6. Monitor 



16 kB RAM und 64 kB 
RAM als Zusatzmodul 
steckbar in die 
Steckerleiste der Konsole 

Typ D 6620/30 P 
Typ D' 6600/60 P 
Beide Typen können 
wahlweise verwendet 
werden 

BM 7552 



Vertrieb: Philips GmbH 

Geschäftsbereich 
Neue Medien 
Postfach 10 14 20 
2000 Hamburg 1 
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Nebenbei 



bemerkt ... 




Wenn Sie Ihre „Computronic" in Ruhe 

lesen wollen ... 

benutzen Sie doch einfach unseren 

ABO-SERVICES 

* Unsere Garantie: £ür nur 35,- DM!!! 

(6 Ausgaben) 

erhalten Sie die Zeitschrift „Computronic 

regelmäßig frei Haus! 



3«itt 



K 



Computronic 

Abonnement 

Bitte ausschneiden 

und senden an: 

Tronic- Verlag, Postfach 41, 

3444 Wehretal 1. 

Hiermit bestelle ich die Zeitschrift 
» Computronic « 

ab Heft Nr 

zum Jahresabonnementpreis 
(6 Ausgaben) von DM 35 - 
inkl. Versand, Inland 
und DM 45- inkl. Versand, 
Ausland. 



Name/Vorname: 



Straße, Nr. PI*-. Ort: 

Ich wünsche folgende Zahlungsweise 
□ Bargeldlos durch Bankeinzug: 



Bankleitzahl: 



Konto-Nr.: 



Geldinstitut: 

D gegen Rechnung 

D gegen Vorkasse — 

(Betreßendes bitte ankreuzen) Datum, Unterschrift 

Abonnements-Kündigungen: 

6' Wochen vor Ablauf des Jahres-Abonnements. 

Außerdem kann ich diese Bestellung innerhalb von 10 Tagen beim 

Verlag widerrufen! Zur Wahrung der Frist genügt die rechtzeitige 

Absendung. 

Datum, Unterschrift 
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Mefc 



^mellen! 



misch 

Wenn Sie sich das Abtippen der Pro- 
gramme ersparen wollen, nutzen Sie 
doch einfach unseren Software-Ser- 
vice. 

Füllen Sie die beiliegende Bestellkar- 
te aus oder bestellen Sie telefonisch. 
Bei uns werden sämtliche Bestellun- 
gen innerhalb nur 1 Woche bearbei- 
tet! 

Bitte beachten Sie: 

Sie ersparen sich zusätzliche Kosten 
(bis zu 5,- DM), wenn Sie per Vorkas- 
se (Bargeld, Verrechnungsscheck) be- 
stellen. 

Lieferungen ins Ausland erfolgen 
nur gegen Vorkasse! 

Hinweis: 

falls zurückgenommen. Wir bitten un- in unserer Computerabteilung jedoch 
Unser Software- Versand nimmt Re- sere Kunden trotzdem, nicht voreilig keinerlei Fehler aufweisen. Bitte über- 
klamationen gern entgegen. Defekte zu reklamieren. Wir bekommen immer prüfen Sie in solchen Fällen (1-3 Re- 
Datenträger werden kostenlos umge- noch angeblich defekte Datenträger klamationen) Ihre komplette Compu- 
tauscht. Beschädigte Ware wird eben- zurückgeschickt, die nach einem Test teranlage! 

Bestellcoupon ausfüllen und einsenden an: 

Tronic-Verlag, Postfach 41, 3444 Wehretal 1 



-S« 



comp«*«,* Bestellkarte-Software-Service 

Alle im Heft abgedruckten Programme können als zusätzlicher Service über den Verlag bezogen werden 
(Ausland nur gegen Vorkasse) 



Die Zustellung erfolgt: gegen Vorkasse D 
innerhalb von 1 Woche 



oder Inland per Nachnahme G 
+ Versandkosten 



Entnehmen Sie bitte aus unseren Preislisten die notwendigen Angaben für Ihre Bestellung: 
Bitte liefern Sie mir: 

D Cassette für : Q Anzahl 



Bestell-Nr. 



□ Diskette für 

zum Preis von gesamt 



Bestell-Nr. 



D Anzahl 

DM 



Name/Vorname: 



Straße, Nr.: 



PLZ/Ort: 



Datum, Unterschrift 
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Commodore 64 

Software- Service 



Programm 



Preis /Kassette 



Preis /Diskette Bestell-Nr. 



Mauern 
Widerstand 


8 — 


15, — 


C 41 


Space-Comets 

Erdspalte 

Sprite-Data 


15 — 


23,50 


C 51 


Auto start 

Bestellschein 

Roadpainter 


16,50 


23,50 


C 61 


Hardcopy 

Space-Fighter 

Data-Generator 


15,50 


19,50 


C 71 


Monster-Attack 

Block-Painter 

Epson-Drucker 


16,50 


23,50 


C 81 


Projekt 
Datenbank 


16 — 


23,50 


C 91 


Spiders 
The Basic 


16,50 


23,50 


C101 


High Noon 

Skeet 

Grafik-Designer 


17,50 


23,50 


C121 


Painter 

Star-Battle 

Editor 


17,50 


23,50 


C 22 


Wüstenrallye 

Jet-Pac 

Black Moore Castle 


17,50 


23,50 


* 
C 32 


Brieftaube 
Cadelon 


19,50 


24,50 


C 42 


Ritter Erik 
Grand Prix 
Spritehüfe 


19,50 


24,50 


C 52 



VC-10 

Software-Service 



•rogramm 



Preis/ Kassette 



Preis /Diskette 



Bestell-Nr. 



Bestellschein 
Glücky 


8,50 


15 — 


V 61 


Multigraph 
All Rammer 


11 — 


15,50 


V 71 


Zyklo 
Meteorit 


11,— 


19,50 


V 81 


Garten 

Schloß Gruselstein 


14 — 


19,50 


V 91 


Fressman 
Outlaw 


14,— 


19,50 


V101 


Prost 
Buffalo Bill 


14 — 


19,50 


V121 


Joy Man 
Powerpack 


14 — 


19,50 


^V 22 


Der rasende Malocher 

Franke z:r5 :: Pharao 


14,— 


19,50 


V 32 


Matron 
Obst 


14- 


19,50 


V 42 


Race On 
Cagy 


14,— 


19,50 


V 52 
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n v3l 800 XL 

Software-Service 



* für Atari 600 

Programm 




Preis /Kassette 




, • ■•«•« .<*• ** .""s- * » w ■# / : 



Preis/Diskette 



Bestell-Nr. 



Mastermind * 
Schlangenkrieg * 


10,50 


19,50 


I 41 


Tank-Battle 
Oil Panic 


12,50 




I 51 


Startup 

Zeilen-Split 

Tomstone-City 




19,50 


I 71 


Painter 
Hardcopy 


14,— 


19,50 


Ksi 


The Big Quest 
Fünf gewinnt 


14 — 


19,50 


I 91 


Splitt * 


11,— 


17,50 


1101 


Ski 
Mutation * 


14,50 


19,50 


I 121 


Super Miner 
Diamonds 


14,50 


19,50 


I 22 


Donkey Kong 
Kerzenheinz 


16,50 


19,50 


I 32 


Fighting 

Escape from Earth 


16,50 


19,50 


I 42 


Höhlen-Herbert 
Ball Harbour 


16,50 


19,50 


I 52 



fl-99 

Software-Service 




Programm 


Preis /Kassette 


Preis /Diskette 


Bestell-Nr. 


Drei Kronen-Spiel 
Zahlenputzen 


8,50 




T 41 


Karl der Käfer 
Alien-Landing 


14,50 




T 51 


Jack the Digger I 
Noah 2099 


14,50 




T 61 


Lift Bär 

ASC II DEF Teil 1 


14 — 




T 71 


Maya 

ASC II DEF Teil 2 


14,50 




T 81 


ASC II DEF Teil 1+2 


- 


19,50 


T881 


Transfer 
Silverspar 


14,50 


19,50 


T 91 


Mother Duck 

Screen Designer 


14,50 


19,50 


T101 


Cave Man 


8 — 


11,50 


T121 


Moon Race 

Frogger 

Slicks 


19,50 


25,50 


T 22 


Panzerschlacht 


8 — 


11,50 


T 32 


Maya II 
Jagdszene Chicago 


16,50 


19,50 


T 42 


Raketen-Beschüß 
Fire-Fox 


16,50 


19,50 


T 52 
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ZX-Spectrum 

Software- Service 



ZX-81 

Software-Service 




Programm 


Preis /Kassette 


Bestell-Nr. 


Inventur 


12 — 


S 


41 


Missile-Comment 


8,50 


s 


51 


Defender 

Lui der Wurm 

Alternativer Zeichensatz 


13,50 


S 


61 


Matheprogramm 
Bongo-Beecatcher 


12,50 


s 


71 


Solitaire 

Superstat 

Kleinstes gem. Vielfache 


14,50 


s 


81 


Jump about 


14,50 


s 


91 


Pac-Man 
Oil Panic 


14,50 


S101 


Frogger 


16 — 


S 121 


Jump 


14,50 


s 


22 


Jet Set Freddie 


8 — 


s 


32 


Andromeda 


14,50 


s 


42 


Totenkopf 


14,50 


s 


52 




Programm 


Preis /Kassette 


Bestell-Nr. 


Go-Ball 
Grand-Prix 


10 — 


Z 51 


Moon-Crash 
ZX-Draw 


10 — 


Z 61 


Tonprogramm 
Aldebaran 


10 — 


Z 71 


Reversi 


10— ' 


Z 91 


Panik Labyrinth 


10 — 


Z 101 


Expedition 


10 — 


Z 121 


Spinnen 


14,50 


Z 22 


Spukhaus 


14,50 


Z 32 


Frogger 


14,50 


Z 42 


Olympiade 


15,50 


Z 52 
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Apple II 

Software-Service 







Programm 


Preis /Kassette 


Preis /Diskette 


Bestell-Nr. 


Wilder Westen 

Karambolage 

Maskengenerator 




19,50 


A 41 


Music-Maker 
Mission: Adler 
Disk-Katalog 




19,50 


A 51 


Snake 
Super Datei 
Shape-tables 




19,50 


A 61 


Library 
Fight 


_ 


19,50 


A 71 


Reversal 
Disk-Menue-Generator 




19,50 


A 81 


Diamonds 
Hilfsprogramm 




19,50 


A 91 


Tic-Tac-Toe 
Jumper 




19,50 


A101 


Donovan 
Basic-Konverter 


• 


19,50 


A121 


Funktionstasten 

Painter 

Bowling 




19,50 


A 22 


Thunder 
Castle of Doom 


~ 


19,50 


A 32 


Hubschrauber 


— 


19,50 


A 42 



Widerstandsdecodierung 
Soft-Talker 



16,50 



A 52 



Schneider 
CPC-464 

Software-Service 



h 



wm 







Super Miner 



14 — 



SR 41 



CPC-Bert 



14 — 



SR 52 



Bestell-Nr. 300 Ausgabe 4-8 DM 19 - Bestell-Nr. 301 Ausgabe 11/12 DM 4 - 



Unser Super-Angebot 



Bestell-Nr. 100 kleines Programm-Paket 3 bespielte Kassetten dm 2750 

3 bespielte Disketten DM 48,- 

Bestell-Nr. 110 großeS PrOgramm-Paket 8 bespielte Kassetten DM 64.50 

8 bespielte Disketten DM 99- 

BeStell-Nr. 200 exklusive Diskettdl-BOX inkl. 8 bespielte Disketten 

zum Preis von DM 148,- 

BJtte beachten Sie: Es können nur Kassetten (Disketten) von Bestell-Nr. 41 bis Bestell-Nr. 121 ausgewählt 

" werden! 
Alle bespielten Kassetten und Disketten wurden unserem Kassettenservice entnommen. Angebot gilt für Commodore 64, 
Atari, TI-99, VC-20, ZX-Spectrum und ZX-81. 
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Liebe 
Computerfreunde, 

teilnehmen an unserer Ak- 
tion „fehlerhaftes Listing" 
können wirklich nur die ein- 
gesandten Coupons. 
Nach Erscheinen einer neu- 
en Ausgabe bekommen wir 
immer wieder zahlreiche 
Hinweise auf angeblich feh- 
lerhaft abgedruckte Pro- 
gramme. Davon abgesehen, 
daß wir keinen Telefonanru- 
fer berücksichtigen können, 
sind zumeist auch die ersten 
Hinweise eigene Eingabe- 
fehler. Unsere Computerab- 
teilung ist gerne bereit, hier weiterzu- 
helfen bzw. eventuelle Fragen zum 
Programm zu beantworten. 
Ein Hinweis: Das Listing ist nur 
dann fehlerhaft, wenn das Pro- 
gramm sich aufhängt bzw. eine 
ERROR-Meldung ausgibt (richtige 
Programmiereingabe ist natürlich 
Voraussetzung). 



Liebe Freunde, 



in unserer letzten Ausgabe ist es unseren Mitarbeitern gelungen, vollkommen 
fehlerfreie Listings zu erstellen. (Ein Lob auch an unsere Druckerei!) Sicher 
werden unsere Leser über diese Nachricht erfreut, aber auch traurig sein. 
Erfreut darüber, das alle Listungs nach sorgfältiger Eingabe sofort funktions- 
tüchtig waren, und traurig, daß keine Belohnung ausgezahlt wurde. 
Wir bedanken uns bei allen Lesern für Ihre eifrige Teilnahme und möchten Euch 
ermutigen, auch weiterhin bei unserem Wettbewerb mitzumachen. Jeder einge- 
sandte Nachweis-Coupon wird von uns sorgfältig überprüft. 

Aktion: 
Fehlerhaftes Listing? 




Entdecken Sie in dieser Ausgabe einen Fehler, 
füllen Sie den Coupon aus und senden Ihn an: 

Tronic-Verlag, 

Postfach, Kennwort: Listing, 3444 Wehretal 1 



Nachweis-Coupon: Computronic 

Kennwort: •£ Fehlerhaftes Listing? -je Fehlerhaftes Listing? jr Fehlerhaftes Listing? 



Name/Vorname: 



Straße, Nr.: 



PLZ/Ort: 



Datum, Unterschrift 



Ich habe folgenden Fehler in einem Listing entdeckt: 



Programmname 



richtig ist: . 



Seile 



Listing-Zeile 
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Immer gefragt 

ist Fachliteratur rund um den Com- 
puter. Zahlreiche Kontakte zu ver- 
schiedenen Verlagen im Inland, 
die uns freundlicherweise ihre 
neuesten Ausgaben zur Verfügung 



stellen, ermöglichen uns auch hier, 
immer am Ball zu bleiben. Erstes 
Fazit - ebenso wie auf dem Zeit- 
schriftenmarkt quellen die Regale 
über von Computer-Fachliteratur. 
So undurchdringlich wie der Zeit- 
schriftendschungel ist mittlerweile 



Mein Homecomputer 



Machen Sie eine Entdeckungsreise in die faszinierende Welt der Computer! 



Mein 
Heimcomputer 

Grundlagenwissen 
leicht verstehen 




Norbert Hesselmann 



Das Buch richtet sich an alle 
Einsteiger, die sich für die 
Computertechnik interessie- 
ren und nichts mitbringen als 
die Bereitschaft, sich die 
wichtigsten Kenntnisse an- 
zueignen. 

Angesprochen sind aber auch diejeni- 
gen, die bereits Erfahrungen mit Mi- 
krocomputern gesammelt haben und 
sich gezielt über Detailfragen infor- 
mieren wollen. 

Schritt für Schritt führt der Autor Ih- 
nen in einer leicht verständlichen 
Sprache vor, was sich hinter dem Ge- 
häuse eines Heimcomputers verbirgt, 
wie er arbeitet, wie Sie zu ihm Kontakt 
aufnehmen und ihn anwenden kön- 
nen. 

Aus dem Inhalt: 

Viele Chips bilden ein System / Von 

der Tastatur zum Bildschirm / Grafik 



auch der Markt der Computer-Ta- 
schenbücher bzw. der gesamten 
Fachliteratur. 

Wir stellen Ihnen in jeder Ausgabe 
einige Neuerscheinungen vor. Zu 
beachten ist, daß durch die Viel- 
zahl der angesprochenen Themen 
ein von Seiten des Verlages als in- 
teressante Neuerscheinung vorge- 
stellte Literatur, unter Umständen 
Enttäuschendes bieten kann. 



mit dem Heimcomputer / Programm- 
kontrollierte Musik und Geräusche / 
Periphere Eingabe-/Ausgabe-Geräte / 
Programmieren in Maschinensprache / 
Schnittstellen - Die Verbindung zur 
Außenwelt / Tips für den Kauf. 
Ein Anhang mit vielen wichtigen In- 
formationen rundet diese Einsteiger- 
Lektüre ab, durch die Sie Ihren Com- 
puter besser verstehen und wirksam 
einzusetzen lernen. 

Über den Autor: 

Dr.-Ing. Norbert Hesselmann, SY- 
BEX~Lektor und Autor mehrerer 
Fachbücher sowie* einer Vielzahl von 
Fachartikeln, war nach dem Studium 
der Nachrichtentechnik und seiner 
Promotion einige Jahre in der privaten 
Forschung tätig und arbeitete danach 
an einem Institut der TH Aachen. Der 
Umgang mit Computern gehört beruf- 
lich wie auch privat zu seinem Alltag. 
Im SYBEX-Verlag erschienen von ihm 
bereits „Mein Dragon 32" und „Arbei- 
ten mit dem Macintosh". 



Bildschirmfoto 

Ich bin seit Januar Stammleser von 
„COMPUTRONIC" und finde sie su- 
per. Ich habe aber noch einige Ideen, 
wie Sie noch .besser werden kann. 
Man sollte am besten von jedem Pro- 
gramm ein Bildfoto abdrucken. Ich bin 
immer wieder verärgert, wenn bei gu- 
ten Programmen (Topprogramme) 
bzw. guten Programmtiteln (Maya II), 
die ich aus Systemgründen nicht ab- 
tippen kann, keine Bildschirmfotos im 
Inhaltsverzeichnis finde. Drei Fotos 
sind einfach zu wenig. 
Michael Hengsten, 4060 Viersen 



Ich wollte Ihnen vorschlagen, daß Sie 
zu jedem Listing ein Bildschirmfoto 
mit abdrucken sollten. Jeder Leser 
könnte sich dann ein besseres Bild 
über das abgedruckte Programm ma- 



chen. Ihre Zeitschrift „COMPUTRO- 
NIC" ist eine sehr gute Zeitschrift. Zu 
bemerken ist, daß es den VC- 20 noch 
gibt und kein Computer-Freak (oder 
Fachzeitschrift) ihn vergessen bzw. 
vernachlässigen sollte. Es ist nach wie 
vor in seinem Preis-Leistungs-Ver- 
hältnis der Beste. Außerdem hat er ein 
schnelles Basic. Es ist schneller als das 
vom VC-64. PS; Bitte weiter so!! 
Oliver Montag 

Redaktion: 

Unser Konzept sieht vor, für die über- 
wiegend jungen Leser von „COMPU- 
TRONIC" durch lustige Spielbe- 
schreibungen und Bildern die Phanta- 
sie anzuregen, um eine mit z. T. nüch- 
ternen Daten gefüllte Zeitschrift auf- 
zulockern. Viele Leser finden unser 
Konzept vielversprechend und sind 
begeistert. - Wir finden, 3-5 Bild- 



schirmfotos in der Inhaltsangabe sind 
völlig ausreichend. Sie sollen lediglich 
den Bezug herstellen, sich von der 
Qualität unserer Spiele zu überzeugen. 

Zum VC-20: der VC-20 ist tatsäch- 
lich etwas schneller als der Commodo- 
re 64, obwohl beide die gleiche BA- 
SIC -Version benutzen. Der Grund: 
der Videocontroller des Commodore 
64 bedingt zeitweilige Unterbrechun- 
gen des Programmablaufs, um den 
Bildschirm zu verwalten. 

TI-99/4A-Programme 

Mit ist aufgefallen, daß Sie (wie fast 
alle Computermagazine) hauptsäch- 
lich Programmlistings für Computer 
wie Commodore usw. abdrucken. Da- 
her meine Bitte: drucken Sie möglichst 
Listings für den TI-99/4A in Grund- 
version ab, da nicht alle Anwender 
dieses Gerätes ein „Extended Basic 



Computronic 



Modul" besitzen. Sonst ist Ihre Zeit- 
schrift sehr gelungen. 
\ThieIe-Dohrmcmn, Hamburg 

Redaktion: 

Zielen Dank für Ihr Lob. - Der TI- 
. ! 9/4A bleibt nach wie vor ein fester 
^Bestandteil unserer Zeitschrift. Das 
TI-Basic allein reicht nicht aus, um 
_ eine für uns zufriedenstellende Spiel- 
qualität zu erreichen. D. h., durch die 
geringe Leistungsfähigkeit des TI-99 
ohne dem Ext. Basic Modul bedarf es 
eines hohen Programmieraufwandes, 
um eine gute Spielqualität zu errei- 
chen. Ein Tip: der Verlag ist bereit, bei 
der Beschaffung eines Ex. -Basic- 
Moduls zu helfen. Anfragen bitte an: 
56 51 / 4 06 93 oder 4 06 43. 
Achtung: 

Hinweis zu dem Programm „Heli- 
copter Rescue" für APPLE II COM- 
PUTRONIC 4/2 '85. 
Leider ist uns in der Beschreibung für 
o. g. Programm ein kleiner Fehler un- 
terlaufen. 

Richtig ist: das Hauptprogramm muß 
unter der Bezeichnung „Helicopter 
Rescue" und nicht, wie fälschlicher- 
weise angegeben, unter „Rescue", auf 
~ Diskette abgespeichert werden. 
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Pascal auf dem 
ZX-Spectrum 
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Bislang konnte die Program- 
miersprache Pascal nur auf 
Rechnern der gehobenen 
Preisklasse genutzt werden. 



Hier wird nun ein Pascal für 
den g^Mifären Sinclair ZX- 
Spectrum vorgestellt (Hisoft- 
Pascal). 

Das Buch bietet keinen trockenen 
Lehrstoff an, sondern versteht sich als 
Programmierbuch mit vielen Beispie- 
len, die direkt eingegeben werden 
können. 

Themen und Beispiele wurden so aus- 
gewählt, daß sowohl Einsteiger als 
auch Fortgeschrittene den richtigen 
Lese- und Programmierstoff erhalten, 
um Pascal auf dem Spectrum wir- 
kungsvoll anzuwenden. 

Über die Autoren: 

Das Buch wurde in Zusammenarbeit 
der Studenten Ralf Dupont und Mi- 
chael Szeliga mit dem Informatik-Leh- 
rer Karl-Hermann Rollke entwickelt 
und geschrieben. K.-H. Rollke ist Au- 
tor der Bücher „Grundkurs in Pascal 
Bd. 1 und Bd. 2", die in der Reihe 
SYBEX INFORMATIK für Schule und 
Fortbildung erschienen sind. 
Die Autoren besitzen mehrjährige 
Programmiererfahrung in Pascal mit 
Mikrocomputern und* sind mit den 
Problemen von Programmier- Anfän- 
gern bestens vertraut. 
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Dieses Buch vermittelt Ihnen auf ver- 
ständliche, unterhaltende Weise das 
Wichtigste über die Geschichte des 
Computers, die Technik des Compu- 
ters und die Anwendung des Compu- 
ters. 

Die einzelnen Artikel sind kurz und in 
sich abgeschlossen - Sie können sich 
also kreuz und quer durchs Buch le- 
sen. Beispielsweise: „Vom Chip, dem 
unglaublichen Ding", über die „Com- 
puter-Kriminalität", dem „Millionen- 
Geschäft" und der „Künstlichen Intel- 
ligenz", dem Denken der Roboter. 

Die Autoren: 

Mike Edelhart ist Geschäftsführender 
Redakteur des US-Computer-Maga- 
zins „PC" und hat bereits mehr als 
zehn populärwissenschaftliche Bü- 
cher geschrieben. - Doug Garr war 
Redakteur von „Polular Science", be- 
vor er sich als Autor selbständig 
machte. 



Ein 35-Zeichen/Sek.-Normalpapier- 
Drucker für 127 mm Rollenpapier, di- 
rekt, anschließbar an Sinclair Spec- 
:.:m und mit Zusatzadapter für Sin- 
ilair Z^X-81. Der Drucker überträgt 
den vollständigen Sinclair-Zeichen- 

f^iz einschließlich der Blockgrafik- 
S^niböle. Alphanumerische Zeichen 

, jpd Blockgrafik werden über eine 7 x 
7-Punktmatrix dargestellt, die maxi- 
male Spaltenzahl pro Zeile beträgt 32. 
Selbst hochauflösende Grafik kann in 
einem Rasterfeld von 256 x 256 Punk- 
ten ausgedruckt werden. Durch Wahl 
der Farbband-Kassette sind 6 ver- 
schiedene Farben druckbar. 
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Eine leichtverständliche Einführung 

in Aufbau und Anwendung 
der Heim- und Personal-Computer 
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DOPPELT GEWINNEN 
MIT "ELEPHANT"! 





Jetzt gibt es neben dem 1. Gewinn, der überragenden Qualität 
der "ELEPHANT'-Floppy-Disk, noch einen triftigen Grund mehr, 
schnell Ihren "ELEPHANT-Händler aufzusuchen: ein Puzzle-Spiel, 
das Ihnen einen schönen Extra-Gewinn einbringen kann. Was es zu 
gewinnen gibt, steht auf dem fertigen Puzzle! 
Also nichts wie hin zu Ihrem "ELEPHANT-Spezialisten. 

ELEPHANT NEVER FORGETS, 

MARCOM Computerzubehör GmbH 

Podbielskistraße 321, 3000 Hannover 51, Tel. (0511) 6474 20 
Frankreich: Soroclass, 8, Rue Montgolfier • 93115, Rosny-Sous-Bois.Tel.: 16 (1) 855-73-70 
Großbritannien: Dennison Mfg. Co. Ltd., Colonial Way, Watford WD2 4JY, Tel.: 0923 41244, Telex: 923321 
Weiteres Ausland: Dennison International Company, 4006 Erkrath 1, Matthias-Claudius-Straße 9, Telex- 858 6600 




